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IDENTIFICATION 


PRODUCT CODE: AC-A913B-MC 

PRODUCT NAME: CZKCFBO BITSTUFF MD L TSTS 
DATE: AUGUST 1980 

MAINTAINER: DIAGNOSTICS-MERRIMACK 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
OE aa dali FOR ANY ERRORS THAT MAY APPEAR IN THIS 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 
LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE 
TERMS OF SUCH LICENSE. 


gi EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 
USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY DIGITAL. 


COPYRIGHT (C) 1977, 1980 BY DIGITAL EQUIPMENT CORPORATION 
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ABSTRACT 


THE FUNCTION OF THE KMC11 DIAGNOSTICS IS TO VERIFY THAT THE 
OPTION OPERATES ACCORDING TO SPECIFICATIONS. THE DIAGNOSTICS 
VERFIY THAT THERE ARE NO MALFUNCTIONS AND ag ALL OPERATIONS 
OF THE KMC11 ARE CORRECT IN ITS ENVIRONMENT 


PARAMETERS MUST BE SET UP TO ALERT THE DIAGNOSTICS TO THE 
KMC11 ee aa eee THESE PARAMETERS ARE CONTAINED IN THE 
STATUS TABLE AND ARE GENERATED IN TWO WAYS: 1) MANUAL 
INPUT - THE OPERATOR ANSWERS QUESTIONS. 2) - cee, - THE 
PROGRAM DETERMINES THE PARAMETERS AUTOMATICALLY 


CZKCF TESTS THE KMC-11_ LINE UNIT (M8201 OR M8202). IT 
PERFORMS WRITE/READ TESTS ON THE KMC LINE UNIT REGISTERS. IT 
ey Fey — PROPER TRANSMITTER, RECEIVER, AND BCC OPERATION IN 
BITSTUFF MODE. THE MODEM SIGNALS ARE ALSO CHECKED. DZKCF 
REQUIRES A KMC WMICRO-PROCESSOR (M8204) TO RUN. FOR BEST 
DIAGNOSIS A_TURN-AROUND CONNECTOR SHOULD BE INSTALLED, HOWEVER 
THE DIAGNOSTIC WILL RUN WITHOUT IT (SOME TESTS ARE SKIPPED). 


om a THERE ARE FOUR OFF LINE DIAGNOSTICS THAT ARE TO BE 
RUN SEQUENCE TO INSURE THAT IF AN ERROR SHOULD OCCUR IT 
WILL Br DETECTED AT AN EARLY STAGE. 


NOTE: ADDITIONAL DIAGNOSTICS MAY BE ADDED IN THE FUTURE. 
THE FOUR DIAGNOSTICS ARE: 


4 prev BASIC W/R AND MICRO-PROCESSOR TESTS 

REV] JUMP AND MAIN MEMORYTESTS (HEAT TEST TAPE) 
J DDCMP LINE UNIT TESTS 
DZKCF MM BITSTUFF LINE UNIT TESTS 
DZKCA CREV] KMC11 CPU MICRO-DIGNOSTICS. 
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NOTE: NAMES MAY CHANGE AS UPDATES OCCUR. 

REQUIREMENTS 

EQUIPMENT 

ANY PDP11 FAMILY — ee" AN LSI-11) WITH MINIMUM 8K MEMORY 
ASR 33 (OR EQUILIVALENT) 


KMC11-AN IOP ( 4) 
KMC11-DA OR KMC11-MD OR KMC11-MA 
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STORAGE 


PROGRAM WILL USE ALL BK OF MEMORY EXCEPT WHERE ABL AND 
BOOTSTRAP LOADER, RESIDE. LOCATIONS 2100 THRU 2300; CONTAIN 
THE "'STATUS TABLE’ INFORMATION WHICH IS GENERATED AT START OF 
DIAGNOSTICS BY MANUAL INPUT (QUESTIONS) OR AUTOMATICALLY 
(AUTO=SIZING). THIS AREA IS AN OVERLAY AREA AND SHOULD NOT BE 
ALTERED BY THE OPERATOR. 


LOADING PROCEEDURE 

METHOD 

ALL PROGRAMS ARE IN ABSOLUTE FORMAT AND ARE LOADED USING THE 
ABSOLUTE LOADER. NOTE: IF THE DIAGNOSTICS ARE ON A MEDIA SUCH 


AS DISK ,MAGTAPE ,DECTAPE, OR CASSETTE; FOLLOW INSTRUCTIONS 
Aol THE MONITOR WHICH HAS BEEN PROVIDED ON THAT SPECIFIC 


ABSOLUTE LOADER STARTING ADDRESS *500 
MEMORY * SIZE 


PLACE ADDRESS OF ABS LOADER INTO SWITCH REGISTER. 
(ALSO PLACE ‘HALT’ SW UP) 


DEPRESS ‘LOAD ADDRESS" KEY ON CONSOLE AND RELEASE. 


DEPRESS “START KEY" ON CONSOLE AND RELEASE (PROGRAM SHOULD NOW 
BE LOADING INTO CPU) 


SEQ 0003 


— 
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4. STARTING PROCEEDURE 


A. SET SWITCH REGISTER TO 000200 

B. 4 He Be Se ADDRESS’ KEY AND RELEASE 

C. SET SWR TO ZERO FOR ‘AUTO SIZING’ OR SWR BITO=1 FOR MANUAL 
INPUT (QUESTIONS) OR SWR BIT/7=1 TO USE EXISTING PARAMETERS 
STAGunSTIC. PREVIOUS START OR A PREVIOUSLY RUN KMC11 

D. DEPRESS ‘START KEY' AND RELEASE. THE PROGRAM WILL TYPE 
MAINDEC NAME AND PROGRAM NAME (IF THIS WAS THE FIRST START 
UP OF THE PROGRAM) AND ALSO THE FOLLOWING: 


MAP OF KMC11 STATUS 


PC CSR STAT1 STAT2 STATS 
002100 160010 045310 177777 000000 
002110 160020 0453520 177777 000000 


THE PROGRAM WILL TYPE *R* AND PROCEED TO RUN THE DIAGNOSTIC. 
THE ABOVE IS ONLY AN EXAMPLE. THIS WOULD INDICATE THE STATUS 
TABLE STARTING AT ADD. 2100 IN THE PROGRAM. IN THIS EXAMPLE 
THE TABLE CONTAINS THE INFORMATION AND STATUS OF TWO KMC11‘'S. 
THE STATUS TABLE MUST BE VERIFIED BY THE USER IF AUTO SIZING 
IS DONE. FOR INFORMATION OF STATUS TABLE SEE SECTION 8.4 FOR 


HELP. 

IF THE DIAGNOSTIC WAS STARTED WITH SWOO=1 INDICATING MANUAL 
PARAMETER INPUT THEN THE FOLLOWING SHOWS AN EXAMPLE OF THE 
QUESTIONS ASKED AND SOME EXAMPLE ANSWERS: 
HOW MANY KMC11°S TO BE TESTED?1 


01 
CSR ADDRESS?160010 
VECTOR ADDRESS?310 
BR PRIORITY LEVEL? (4,5 

NE none type’ 'N'’) IF M8201 TYPE ‘“I'', IF 






Loo SACK CONNECTOR ON?Y 
1 AND LOOP BACK CONNECTOR ON THEN YOU GET THE NEXT QUESTION) 
TYPE ‘'D" i" KMC11=DA (RS232).0R 





————— nn 
Lm en ne eee eter me eee ee 
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4.1 CONTROL SWITCH SETTINGS 
SW 15 SET: HALT ON ERROR 


SW 14 SET: LOOP " CURRENT TEST 

SW 13 SET: INHIBIT ERROR PRINT 

SW 12 SET: INHIBIT TYPE OUT ABELL "ON ERROR. 

SW 11 SET: INHIBIT ITERATIONS. (QUICK PASS) 

SW 10 SET: ESCAPE TO NEXT TEST ON ERROR 

SW 09 SET: LOOP WITH CURRENT 

SW 08 SET: CATCH ERROR AND LOOP ON IT 

SW 07 SET: USE Be ee gM TABLE. 

SW 06 SET: HALT IN ROMCLK ROUT INE BEFORE CLOCKING 
MICRO=PROCESSOR 

SW 05 SET: RESERVED 


SW 04 SET: RESERVED 

SW 03 SET: RESELECT KMC11°S DESIRED ACTIVE 

SW 02 SET: LOCK 6 ceRec lee TEST 

SW 01 SET: RESTART PROGRAM AT SELECTED TEST 

SW 00 SET: BUILD NEW STATUS TABLE FROM QUESTIONS. (IF SWO7=0 
AND SWOO=0 A NEW STATUS TABLE IS BUILT BY 
AUTO-SIZING) 


SWITCH 06 AND 08-15 ARE DYNAMIC AND CAN BE CHANGED AS NEEDED 
WHILE THE DIAGNOSTIC IS RUNNING. SWITCHES 00-03 AND SWITCH 07 
ey ML AND ARE USED ONLY ON STARTING OR RESTARTING THE 
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Sw 01 


SW 02 


SW 03 


METHOD: 


SWITCH REGISTER OPTIONS (AT START UP) 


RESTART PROGRAM AT SELECTED TEST. IT IS STRONGLY 
SUGGESTED THAT y! LEAST ONE PASS HAS BEEN MADE ae 
TRYING TO SELECT A TEST, THE REASON BEING IS THAT THE 
PROGRAM HAS TO CLEAR AREAS AN 

WHEN THIS A IS USED THE fry te WILL ASK TEST 
NO.? ANSWER BY TYPING THE NUMBER OF THE TEST DESIRED 

AND CARRIGE RETURN TO BEGIN EXECUTION AT THE SELECTED 


LOCK ON SELECTED TEST. THIS SWITCH WHEN USED WITH 
SWO1 WILL CAUSE THE PROGRAM TO CONSTANTLY LOOP ON THE 
SELECTED TEST. HITTING ANY KEY ON THE CONSOLE WILL 
LET IT ADVANCE TO THE NEXT TEST AND LOOP UNTIL A KEY 
IS HIT AGAIN. IF SWO2=0 WHEN SWO1 IS USED. THE 
PROGRAM WILL BEGIN AT THE SELECTED TEST AND CONTINUE 
NORMAL OPERATIONS. 


aeectas 1S. TYPED OUT F ag tilt PLEASE NOTE THAT A 


SSAGE IS OUT FOR SETTING THE SWITCH REGISTER 
EQUAL TO KMC11°S ACTIVE. THIS MEANS IF THE SYSTEM HAS 
FOUR KMCI1S; TS 00,01,02, WILL BE SET IN LOC 
*KMACTV' OM SWITCH REGISTER. USING THIS 
SWITCHCSWOO) HAT 


A FATAL ERROR. DO NOT SELECT MORE ACTIVE KMC11S THAN 
THERE IS INFORMATION ON IN THE STATUS TABLE. 


cone ADDRESS 200 


SW 00=1 
WILL TYPE MESSAGE 
F EACH KMC DESIRED ACTIVE. 
If YOU HAVE 4 KMC*S BUT ONLY WANT TO 
RUN THE FIRST part ta LAST SET SWR BITS 0 AND 


3 = 1. PRESS CONTINUE 
E: NUMBER (IF VALID) WILL BE IN DATA LIGHTS 
ANY OTHER SWITCH SETTINGS DESIRED. 


(EXCLUDING 11/05) 
F: SET WITH 
PRESS CONTINUE. 


SEQ 0006 
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DYNAMIC SWITCHES 
FRROR SWITCHES 


1 Sw 1 DELETE PRINT OUT/BELL ON ERROR. 

Q. SW 1 DELETE ERROR PRINTOUT. 

3. SW 15 HALT ON THE ERROR. 

4. SW 08 GOTO BEGINNING OF THE TEST(ON ERROR). 
5 SW 10 GOTO NEXT TEST(ON ERROR). 


SCOPE SWITCHES 


1. SW06 HALT IN  ROMCLK ROUTINE BEF ORE a 
MICRO-PROCESSOR INSTRUCTION. THIS ALLOWS THE 
OPERATOR TO SCOPE A MICRO-PROCESSOR INSTRUCTION IN 
THE STATIC STATE BEFORE IT IS CLOCKED. HIT 
CONTINUE TO RESUME RUNNING. 
2. swog (IF ENABLED BY ‘SCOP1") ON AN ERROR; IF AN ‘** IS 
PRINTED IN FRONT OF THE TEST NO. (EX. *TEST NO. 
10 ) S$WO9 IS INCORPORATED IN THAT TEST AND 
THEREFORE SWO9 IS USUALLY THE BEST SWITCH FOR THE 
SCOPE LOOP (SW14=0, swi0=0, SWO9=1, SWO8=0). IF 
Sw09 NOT ENABELED; E 


iS 
(CONSTANT) 5 B 
su08=1) ). FOR INTERMITTEMT ERRORS: SW14=1 
Ni 60 ON TEST REGUARDLESS OF ERROR OR NOT 
ERROR. Csuteed Sut SWO9=0, SWO8=1,0) 
3. SwWil INHIBIT INTERATION 
4. $W14 LOOP ON CURRENT Tesi. 


STARTING ADDRESS 


STARTING ADDRESS IS AT 000200 THERE ARE NO OTHER STARTING 
ADDRESSES FOR THE KMC11 DIAGNOSTICS. (SEE SECTION 4.0) 


NOTE: IF ADDRESS 000042 IS NON-ZERO THE PROGRAM ASSUMES IT 
1S UNDER ACT11 DP TR 


OR XX CONTROL AND WILL ACT 
ACCORDINGLY AFTER ALL AVAILABLE KMC11°S - TESTED THE 
PROGRAM WILL RETURN TO "XXDP* OR ‘ACT-11° 


OPERATING PROCEDURE 
WHEN PROGRAM ‘’ INITIALLY STARTED MESSAGES AS DESCRIBED IN 


SECTION 4.0 WILL BE PRINTED, AND PROGRAM WILL BEGIN RUNNING 
THE DIAGNOSTIC 


SEQ 0007 


23 
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PROGRAM AND/OR OPERATOR ACTION 
THE TYPICAL APPROACH SHOULD BE 


1. HALT ON ERROR (VIA SW 15=1) WHEN EVER AN ERROR OCCURS. 
é. CLEAR SW 15. 

LB SET SW 14: (LOOP ON THIS TEST) 

4. SET SW 13: (INHIBIT ERROR PRINT OUT) 


THE TEST NUMBER AND PC WILL BE TYPED OUT AND POSSIBILY AN 
ERROR MESSAGE (THIS DEPENDS rae THE TEST) TO GIVE THE OPERATOR 
AN IDEA AS TO THE SOURCE OF THE PROBLEM. IF IT {iS NECESSARY 
TO KNOW MORE INFORMATION CONCERNING THE ERROR REPORT; LOOK IN 
THE LISTING FOR THAT TEST NUMBER WHICH WAS TYPED OUT AND THEN 
NOTE THE PC OF THE ERROR REPORT THIS WAY THE EXACT FUNCTION OF 
THE TEST CAN BE DETERMINED. 


ERRORS 


AS DESCRIBED ore vegwete ie WILL ALWAYS BE A TEST NUMBER 

PC TYPED OUT AT THE TIME OF AN ERROR (PROVIDING SW 15=0 AND NSW 
12=0). IN MOST CASES ADDITIONAL INFORMATION WILL BE SUPPLIED 
IN THE THE ERROR MESSAGE TO GIVE THE OPERATOR AN INDICATION OF 


ERROR RECOVERY 


IF FOR SOME REASON THE KMC11 SHOULD ‘HANG THE BUS" (GAIN 
S MANUAL FUNCTIONS ARE INHIBITED) 
AN INIT OR ie: DOWN /UP + Rag ra FOR OPERATOR TO REGAIN 


CONTROL OF 

*TSTNA* CADDRESS $5 "1202)F0R Th THE NUMBER OF THE TEST THAT WAS 

RUNNING AT THE OF THE CATASTROPHIC ERROR. IN THIS WAY 
THE OPERATOR WILL NAVE AN IDEA AS TO WHAT THE KMC11 WAS DOING 
AT THE TIME OF THE ERROR. 


RESTRICTIONS 

STARTING RESTRICTIONS 

SEE SECTION 4. (PLEASE) 

STATUS TABLE SHOULD BE VERIFIED REGUARDLESS OF HOW PROGRAM WAS 


STARTED. ALSO IT IS IMPORTANT TO USE THIS LISTING ALONG WITH 
a PRINTED ON THE TTY TO COMPLETLY ISOLATE 


SEQ 0008 
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OPERATING RESTRICTIONS 


THE FIRST TIME A KMC11 DIAGNOSTIC IS LOADED INTO CORE AND RUN 
THE STATUS TABLE MUST BE SET UP. THIS IS DONE BY MANUAL INPUT 
(SWOO=1) OR BY rhiue tan a 3 oy AND gins THEREAFTER 


VER STAT TABLE NE NOT BE SETUP BY SUBSEQUENT 
tite” A i LOADING THE a KMC vAaeaY’ pas BECAUSE THE 


TABLE IS OVERLAYED. RRENT PARAMETERS IN THE 
STATUS TABLE ARE USED WHEN SWO7=1 ON START UP. 


HARDWARE CONFIGURATION RESTRICTIONS 
KMC11 IOP(M8204)= JUMPER Wi MUST BE IN, 


LINE UNIT(M8201)- JUMPERS W1, W2, AND W4 MUST BE IN. JUMPERS 
cetigtme © WS MUST BE OUT. SW8 OF E26 MUST BE IN THE ON 


LINE UNIT (M8202)- JUMPER W1 MUST BE IN. SW8 OF E26 MUST BE 
IN THE OFF POSITION. 


MISCELLANEOUS 
EXECUTION TIME 


ALL KMC11 DEVICE DIAGNOSTICS ait GIVE AN ‘END PASS‘ MESSAGE 
(PROVIDING NO ERRORS AND 130) WITHIN 4 MINS. THIS IS 
ASSUMING SWi1=1 (DELETE ITERATIONS) IS SET TO GIVE THE FASTEST 
POSSIBLE EXECUTION. THE ACTUAL EXECUTION TIME DEPENDS GREATLY 
oreten PDP11 CPU CONFIGURATION AND THE AMOUNT OF MEMORY IN THE 


PASS COMPLETE 


NOTE: EVERY TIME THE PROGRAM IS STARTED; THE + hl WILL RUN 

AS IF SwWii (DELETE ITERATIONS) WAS UP (=1). THIS IS TO 

NO HARD ERRORS’ AS SOON AS POSSIBLE. THEREFORE THE 

PR STARTED- WILL BE A ‘QUICK 

AL 11 IN SYSTEM ARE TESTED. WHEN THE 

DIAGNOSTIC HAS COMPLETED A PASS THE FOLLOWING IS AN EXAMPLE OF 
THE PRINT OUT TO BE EXPECTED. 


END PASS CZKCF CSR: 175000 VEC: 0300 PASSES: 000001 
ERRORS: 






NOTE: THE PASS COUNT AND ERROR COUNTS ARE CUMMULITIVE FOR 
EACH KMC11 THAT IS oe att AND ARE SET TO ZERO ONLY 


N D. _ THEREFORE 
OVERNIGHT RUN FOR EXAMPLE, THE TOTAL PASSES AND ERRORS 
FOR EACH KMC11 SINCE THE DIAGNOSTIC WAS STARTED ARE 
REFLECTED IN PASSES: AND ERRORS:. 


SEQ 0009 


411 
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KEY LOCATIONS 
LPADR (1206) 


NEXT (1442) 


TSTNM (1202) 


RUN (1500) 


KMCROO=KMCR17 
KMSTOO=KMST17 
(2100)-(2300) 


KMACTV (1470) 


KMCSR (2066) 


TT eT I ES Ge ee = 
- _ tee 


K 1 


CONTAINS THE ADDRESS WHERE PROGRAM WILL RETURN 
WHEN ITERATION COUNT IS REACHED OR IF LOOP ON 
TEST IS ASSERTED. 


CONTAINS THE ADDRESS OF THE NEXT TEST TO BE 
PEFORMED. 
CONTAINS THE NUMBER OF THE TEST NOW BEING 
PEFORMED. 


im ebhts — ALWAYS POINTS TO THE KMC11 

BEING ESTED. EXAMPLE: (RUN) 
1500/0000000001000000 Faas THAT KMC11 NO.06 
IS THE KMC11 NOW RUNN 


bgt LOCATIONS CONTAIN THE INFORMATION NEEDED 
TO TEST UP TO 16 (DECIMAL) KMC11S SEQUENTIALY. 
THEY CONTAIN THE CSR,VECTOR AND STATUS 
CONCERNING THE CONFIGURATION OF EACH KMC11. 


EACH BIT SET IN THIS LOCATION INDICATES THAT 
THE ASSOCIATED KMC11 WILL BE TESTED IN TURN. 
THAT KRCTT NO” 00, 0102-03-04 WiLL. BE TESTED. 
EXAMPLE: (KMACTY) a5 + 50060000000 10n0 ANS 
THAT KMC11 NO. 00, 04 WILL BE TESTED. 

— THE CSR OF THE CURRENT KMC11 UNDER 


"STATUS TABLE’ (2100-2300) 
THE sag 2 IS FILLED BY AUTO SIZING OR BY THE 


INPUT vue”) ages. 
USER; THE LOCAT MAY AL 
SUIT THE SPECIFIC CONFIGURATION. 








MANUAL PARAMETER 
AS DESCRIBED PREVIOUSLY. ALSO IF DESIRED BY 
TERED BY HAND (TOGGLED IN) TO 





THE EXAMPLE STATUS MAP SHOWN BELOW CONTAINS INFORMATION 


FOR 
TO 16 KMCITI°S. 


TWO HE CAN CONTAIN 
a THE MAP IS A DESCRIPTION OF THE BITS FOR EACH MAP 


PC 


MAP OF KMC11 STATUS 


CSR STATI STAT2 STATS 


02100 160010 045310 177777 000000 
HOt TRD ieon2e Stes2o doK000 ooo 


CZK 
CZK 


ee ee 
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L 1 


EACH oa bled pou Ate 4 WORDS “SHOWS CONTAIN THE STATUS 


H 4 WORDS IS 
KMC'S STATUS IS IN LOCATIONS, | 2190 

SECOND KMC STATUS IS LOCATED AT 2110, 
“OpMFORMATION CONTAINED IN EACH 4 sors ENTRY [S DEFINED AS 


STAT2: 


STATS: 


E AB yi THE RS 
iy D 2106. THE 


21 Oo. 
2112, 140 AND 2116. 


CONTAINS KMC11 CSR ADDRESS 


S 4a" i KMC11 VECTOR ADDRESS 
=1 TURNAROUND CONN bs S ON 


LINE UNIT IS AN M8201 
LINE UNIT IS AN M8202 


IT 
IT 
IT 
1T15=0 

1T13=1 

ITi2=] LINE UNIT 

ITS 09-11 IS KMC11 BR PRIORITY LEVEL 

. IS SWITCH PAC#1 (DDCMP LINE NUMBER) 


B 
B 
B 
B 
B 
B 
B 
L 
H S SWITCH PAC#2 (BM873 BOOT ADD) 
B 

B 


SEQ 0011 


et re re SE 





TS TS — 
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mM 1 
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490 
491 
498 8.5. METHOD OF AUTO SIZING 
496 8.5.1 FINDING THE CONTROL STATUS REGISTER. 
496 THE AUTO=SIZING ROUTINE FINDS A KMC11 AS FOLLOWS: IT STARTS 
497 AT ADDRESS 160000 AND TESTS ALL ADDRESS IN INCREMENTS OF 10 UP 
498 TO AND INCLUDING ADDRESS 167760. IF THE ADDRESS DOES NOT TIME 
499 OUT, FOLLOWING IS DONE, THE FIRST CRAM ADDRESS IS WRITTEN 
500 TOA 129952 THEN IT [$ READ BACK. IF [1 CONTAINS UA n1 
501 125252 A KMC11 HAS BEEN FOUND, IF NOT, THE ADDRESS IS UPDATED 
502 BY 10 AND THE SEARCY CON A =-1 INDICATES A KMC11 WITH 
503 NO CRAM, A 125252 INDICATES” A KMC11 WITH CRAM FURTHER TESTS 
504 ARE PERFORMED AT THIS POINT TO DETERMINE WHICH LINE UNI F 
505 IN D, IF A LOOP-BACK CONNECTOR IS INSTALLED AND 
06 VARIOUS SWITCH SETTINGS ON THE LINE UNIT. 1S WHY 
507 STATUS TABLE MUST BE VERIFIED BY THE USER AND IF ANY OF THE 
508 INFORMATION DOES NOT AGREE WITH THE HARDWARE THE DIAGNOSTIC 
509 MUST BE RESTARTED AND THE QUESTIONS MUST BE ANSWERED. ALL 
510 KMC11'S IN ThE SYSTEM WILL BE FOUND BY THE AUTO-SIZER. iF IT 
511 DOES NOT FIND A KMC11 THE DIAGNOSTIC MUST BE RESTARTED AND THE 
512 QUESTIONS ANSWERED. 
514 8.5.2 FINDING THE VECTOR AND BR LEVEL 
516 THE VECTOR AREA (ADDRESS 300-776) IS FILLED WITH THE 
517 INSTRUCTION IOT AND '.+2° (NEXT ADDRESS). THE PROCESSOR 
518 STATUS IS STARTED AT 7 AND T PROGRAMMED TERRUPT . 
519 THE PS IS LOWERED BY 1 UNTIL THE KMC INTERRUPTS, A DELAY IS 
520 MADE AND IF NO INTERUPT OCCURES AT PS LEVEL 3 (BECAUSE OF A 
521 T ASSUMES VECTOR ADDRESS 300 AT BR LEVEL 
522 HOULD BE FIXED IN THE DIAGNOSTIC. ONCE THE 
523 PROBLE ED; THE PROGRAM SHOULD BE RE-SETUP AGAIN TO GET 
524 ECT 3 AN INTERUPT OCCURED; THE ADDRESS TO WHICH 
525 T £ CKED UP AND REPORTED AS THE 
526 CTOR REPORTED 1S NOT THE VECTOR SET 
527 UP BY YOU; THERE 1S A PROBLEM AND AUTO SIZING SHOULD NOT BE 
359 oe 
530 8.6 SOFTWARE SWITCH REGISTER 
532 IF THE DIAGNOSTIC IS RUN ON AN 11/04 OR OTHER CPU WITHOUT A 
533 SWITCH REGISTER ante rh, SQETWARE SWITCH REGISTER IS USED TO 
534 ALLOW USER THE S ASaLTeh he ESCRIBED PREVIOUSLY 
535 THE HARDWARE SWITCH REGISTER dors SNOT EXIST OR IF ONE DOES 
536 AND IT CONTAINS C7777P). THIS. SOFTWARE. SWITCH 
537 REGISTER IS USED. 
538 CONTROL : 
539 TO OBTAIN CONTROL AT ANY ALLOWABLE TIME DURING EXECUTION OF 
540 THE DIAGNOSTIC THE OPERATOR TYPES A CTRL G ON THE CONSOLE 
541 TERMINAL KEYBOARD. AS SOON AS THE CTRL G IS RECOGNIZED, BY 
54@ THE DIAGNOSTIC, THE FOLLOWING MESSAGE WILL BE DISPLAYED: 
544 SWR=XXXXXX NEW? 


CZ 
C2 


550 


MMMM 
MMV 
CONOUE WH 


P11 


sss ns sss nae 


N 1 


——— ne a 
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WHERE XXXXXX IS THE CURRENT CONTENTS OF THE SOFTWARE SWITCH 
REGISTER IN OCTAL. THE SOFTWARE CONTROL ROUTINE WILL THEN 
AWAIT OPERATOR ACTION. AT ate TIME THE OPERATOR IS REQUIRED 
TO TYPE ONE OR_ MORE OF THE LEGAL CHARACTERS: 1) 0 = 7, 2) 
1 sos: mash 3) CARRIAGE RETURN(<CR>), OR 4) CONTROL-U 
(CTRL N HECK IS MADE FOR LEGALITY. IF THE INPUT 
CHARACTER” IS NOT A <LF>, <CR>, OR CTRL U IT IS ASSUMED TO BE 
AN OCTAL DIGIT. 


TO CHANGE THE CONTENTS OF THE SSR THE OPERATOR SIMPLY TYPES 


T <C 

DEPENDING ON THE PROGRAM ACTION DESIRED AS DESCRIBED BELOW. 
THE INPUT VALUE WILL BE lay te Ve TO THE LAST 6 DIGITS TYPED. 
AT LEAST ONE DIGIT MUST BE TYPED ON ANY Y GIVEN INPUT STRING 
PRIOR TO THE TERMINATOR BEFORE A CHANGE TO THE SSR WILL OCCUR. 


WHEN THE INPUT STRING IS ae te WITH A <CR> THE DIAGNOSTIC 
WILL CONTINUE EXECUTION FROM THE POINT AT WHICH IT WAS 
INTERRUPTED. IF A <CR> IS THE ONLY THING TYPED THE PROGRAM 
WILL CONTINUE WITHOUT CHANGING THE SSR. THE <LF> DIFFERS FROM 
THE <CR> By RESTARTING THE PROGRAM AS IF IT WERE RESTARTED AT 


IF A CTRL U IS TYPED AT ANY POINT IN THE INPUT STRING PRIOR TO 
THE TERMINATOR THE INPUT VALUE _ Witt BE DISREGARDED AND THE 
PROMPT DISPLAYED (SWR = XXXXXX NEW?). 


TO SET THE SSR FOR THE STARTING SWITCHES, FIRST LOAD THE 
DIAGNOSTIC, THEN HIT CTRL G, THEN START THE DIAGNOSTIC. 


TIT TIS t iti ii iii iii iiitiiiiiiiririititiiiiiiitititi tics: 
NOTE:FOR IPG*S LINE UNIT M8202-YE USERS. 
CABLE DATA TEST:CTEST 60, TEST 61) 


THESE TESTS WON'T RUN RELIABLY ON LINE UNITS WITHOUT 
TERMINATING RESISTENCE. 


SEQ 0013 


~~ ——— = = 
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APT/ACT/XXDP/SLIDE 


THIS DIAGNOSTIC IS APT/ACT/XXDP/SLIDE COMPATIBLE USER WOULD BE 
ABLE TO RUN IT UNDER APT/ACT/XXDP ENVIRONMENT. 


NOTE: FOR MANUFACTURING PURPOSE ONLY ITS DESCRIBED HOW TO RUN 
UNDER APT ENVIRONMENT. 


LAR RARAARARRAARRARARASASARAARRRRRSRRERR REESE REESE EEE ES ESE SE 


ETABLE SETTING FOR APT TO RUN UNDER APT 
FIRST PASS TIME: 
LONGEST TEST TIME: 
ADDITIONAL TEST TIME: 
ALL THE ABOVE PARAMETERS ARE DEPENDENT ON PARTICULAR 
ETABLE.THERE 1S.NO DEFAULT TIME SET UPe | te OF SETTING 
SOFTWARE ENVIRONMENT:001 ENVIRONMENT MODE : 200 
SWITCH 1:-SHOULD BE USED AS NORMAL SWITCH REGISTER. 
SWITCH 2:-NOT USED. 
CPU OPTIONS:-NOT USED. 
MEMORY TYPE 1:-BITS<2:4>:=BITS <12:14> OF STATI OF DEV:0. 
MAXIMUM ADDRESS: -BITS<17:19>:=BITS<12:14> OF STATI OF DEV:1 
BITS<2:4>:=BITS <12:14> OF STATI OF DEV:2 
BITS<10:12>:=BITS<12:14> OF STAT! OF DEV:3 
IN THE SAME MANNER 


rear 2 MAXIMUM ADDRESS:-GETS STAT1<12:14> OF DEVICE 


vee! a 3 MAXIMUM ADDRESS:=GETS STAT1<12:14> OF DEVICE 


ie PA 4 MAXIMUM ADDRESS:-GETS STAT1<12:14> OF DEVICE 


INTERRUPT VECTOR 1:FIRST DEVICE RECEIVE VECTOR. 


SEQ 0014 


oo oeeorweee ee ee 


ere a ns oe Le EN Se ee GE Te 
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REST OF THE gp Pata VECTOR SHOULD BE SET UP SEQUENTIALLY 
IN INCREMENTS OF 10. 


Scabies S PRIORITY(SHOULD BE SAME FOR ALL KMC’°S UNDER 


INTERRUPT VECTOR 2:NOT USED. 
BUS PRIORITY:NOT USED. 
BASE ADDRESS:FIRST DEVICE CSR ADDRESS. 
REST SHOULD FOLLOW SEQUENTIALLY 
IN INCREMENTS OF 10. 
DEVICE MAP:AS DESCRIBED IN APT MANUAL. 
CONTROLLER SPECIFIC CODE 1:-NO. OF DEVICES UNDER TEST. 
CONTROLLER SPECIFIC CODE 2:-NOT USED. 
DEVICE DESCRIPTOR WORD O:STAT2 OF FIRST DEVICE. 


TO 


DEVICE DESCRIPTOR WORD 15:STAT2 OF 16TH DEVICE. (KMC) 


HISTORY 


THIS DIAGNOSTIC WAS UPDATED TO DETECT FOR THE CONDITION OF V.35 
AND M8201. IN THIS CONIFURATION, RING WILL NOT BE LOOPED BACK 
AND SHOULD NOT BE TESTED FOR. 


CZKCF 
CZKCF 
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000011 
000012 


000015 
000200 
177776 
177774 


177570 


000000 
000001 
000002 
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SEQ 0016 


-TITLE CZKCF 

;*COPYRIGHT (C) 1976 

+ *DIGITAL EQUIPMENT CORP. 
s SMAYNARD . MASS. 01754 


: «PROGRAM BY DINESH GORADIA 


SeTHIS PROGRAM WAS ASSEMBLED USING THE PDP=-11 MAINDEC SYSMAC 
s *PACKAGE (MAINDEC=11=DZQAC-C3), JAN 19, 1977. 


>*CZKCF BIT STUFF MDL TSTS 
s SCOPYRGNT 1976, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754 


STARTING PROCEDURE 
:LOAD PROGRAM 
;LOAD ADDRESS 000200 
:SWR=Q AUTOSIZE KMC11 
;SWO7=1 USE CURRENT KMC11 PARAMETERS 
:SWOO=1 INPUT NEW KMC11 PARAMETERS 


:PRESS START 
BIT STUFF MD L TSTS"’ 


:PROGRAM WILL TYPE esate 
PROGRAM WILL Bt STA A 
;PROGRAM WILL TYPE ae 10 INDICATE THAT TESTING HAS STARTED 
sAT THE END OF ie PASS, PROGRAM WILL TYPE PASS COMPLETE MESSAGE 
sAND THEN RESUME TESTING 
; SUBSEQUENT RESTARTS WILL NOT TYPE PROGRAM TITLE 
-SBTTL BASIC DEFINITIONS 
iio. te OF THE STACK POINTER *** 1200 *«« 
= 


STACK 

-EQUIV EMT,ERROR ;;BASIC DEFINITION OF ERROR CALL 
-EQUIV I0T,SCOPE ;;BASIC DEFINITION OF SCOPE CALL 
ee DEFINITIONS 
HT= +s CODE FOR HORIZONTAL TAB 

LF= 12 CODE FOR LINE FEED 


CR= 15 : CODE FOR CARRIAGE RETURN 
CRLF= 200 ;CODE FOR CARRIAGE RETURN-LINE FEED 
PS= 177776 + EROCESSOR STATUS WORD 
EQUIV PS,PSW 
STKLMT= 177776 ;STACK LIMIT REGISTER 
PIRQ= 17777 RAM IN TERRUPT REQUEST REGISTER 
DSWR= 17757 > HARDWARE SWITCH REGISTER 
DDISP= 17757 > :HARDWARE DISPLAY REGISTER 
;*GENERAL PURPOSE REGISTER DEF INITIONS 
RO= %0 -GENERAL REGISTER 
Riz 11 TOE NERAL REGISTER 
R2= 2 :GENERAL REGISTER 


ee ee 


ee ee ee _ _——— = . a - —— — - 
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CZ2KCF P11 08-JUL-80 08:24 BASIC DEFINITIONS SEQ 0017 
743 000003 R3= x3 ;;GceNERAL REGISTER 
744 000004 R4= 44 ;;GENERAL REGISTER 
745 000005 R5= “5 ;; GENERAL REGISTER 
746 000006 R6= %6 ;:GENERAL REGISTER 
747 000007 R7= %7 ;;GENERAL REGISTER 
748 000006 SP= %6 ::;STACK POINTER 
34 000007 PC= %7 PROGRAM COUNTER 
751 s*PRIORITY LEVEL DEFINITIONS 
752 00000 PRO= 0 : PRIORITY LEVEL 0 
753 000040 PRi= 40 : PRIORITY LEVEL 1 
754 000100 FR2= 100 *:PRIORITY LEVEL 2 
755 000140 PR3= 140 : PRIORITY LEVEL 3 
756 000200 PR4= 200 PRIORITY LEVEL 4 
757 000240 PR5= 240 : PRIORITY LEVEL 5 
758 000300 PR6= 300 : PRIORITY LEVEL 6 
4 000340 PR7= 340 : :PRIORITY LEVEL 7 
761 s*'"SWITCH REGISTER'' SWITCH DEFINITIONS 
762 100000 SW15= 100000 
763 040000 SWw14= 0 
764 020000 SWi3= 20000 
765 010000 SWi2= 10000 
004000 SWil= 
767 002000 SWi0= 2000 
768 001000 SWwO9= 000 
769 000400 SWwO8= 400 
770 000200 SWO7= 200 
771 000100 SWwO6= 100 
772 000040 Sw05= 
773 000020 SWO4= 20 
774 000010 Swo3= 10 
775 000004 SWO2= 4 
776 000002 SWwOi= 2 
777 000001 swoo= 1 
778 -EQUIV SWO9,SW9 
-EQUIV SWO7,SW7 
781 -EQUIV SW06,SW6 
782 -EQUIV SWO5S,SW5 
783 -EQUIV SWO4,SW4 
-EQUIV S$WO3,SW3 
785 EQUIV a swe 
786 EQUIV SWO1,SW1 
a -EQUIV SW00,SWO 
789 :*DATA BIT DEFINITIONS (BiTOO TO BIT15) 
790 100000 BIT15= 1 0 
791 04 BIT14= 40000 
792 020000 BIT13= 20000 
793 010000 BITi2= 10000 
794 004000 BIT11= 4000 
795 002000 BIT10= 2 oR 
796 001000 BI1T09= 1000 
797 000400 BITO8= 400 
798 000200 BITO7= 200 


—— — ee 
= = LLL OL ET LT CT EE Lt NT NE ET RT eS eR | RD ESSE SE ES Eh ee 
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799 000160 BIT06= 100 
800 00 BIT0S5= 40 

801 000020 BIT04= 20 

802 00001 BITO3= 10 

802 000004 BITO2= 4 

804 000002 BITOl= 2 

805 000001 BIT00= 1 

806 -EQUIV BIT09,BIT9 

807 “EQUIV BITO8.B1T8 

808 “EQUIV B1T07.BIT7 

809 -EQUIV BIT06.BIT6 

810 -SQUIV BITOS,BITS 

811 -EQUIV BIT04,B1T4 

812 -EQUIV BIT03,B1T3 

813 -EQUIV B1T02,B1T2 

B14 “EQUIV BITO1,B1T1 

815 “EQUIV BITO0.BITO 

817 ;*BASIC “'CPU'' TRAP VECTOR ADDRESSES 

818 000004 ERRVEC= 4 E OUT AND OTHER ERRORS 

819 000010 RESVEC= 10 : RESERVED AND ILLEGAL INSTRUCTIONS 
820 000014 TBITVEC=14 te Bit 

821 000014 TRIVEC= 14 TRACE T 

822 000014 BPTVEC= 14 :SOREAKPOINT TRAP (BPT) 

823 000020 LOTVEC= 20 ;31NPUT/OUTPUT TRAP (IOT) **SCOPE** 
824 000024 VEC= 24 >sPOWER FAIL 

825 000030 EMTVEC= 30 : EMULATOR TRAP (EMT) **ERROR** 
826 000034 TRAPVEC=34 ::*TRAP"’ TRAP 

827 000060 TKVEC= 60 =: TTY KEYBOARD VECTOR 

828 000064 TPVEC= 64 *:TTY PRINTER VECTOR 

829 000240 PIRQVEC=240 ::PROGRAM INTERRUPT REQUEST VECTOR 
831 

832 

833 

834 s INSTRUCTION DEFINITIONS 

836 : 

837 005746 PUSH1SP=5746 —_;DECREMENT PROCESSOR STACK WORD 

838 005726 POP1SP=5726 : INCREMENT PROCESSOR STACK 1 WORD 

839 010046 PUSHRO=10046  :SAVE RO ON STACK 

840 012600 POPRO=12 RESTORE RO FROM STACK 

841 024646 PUSH2SP= 4646 :DECREMENT STACK TWICE 

842 022626 POP2SP=22626 =; INCREMENT STACK TWICE 

845 .EQUIV EMT,HLT :BASIC DEFINITION OF ERROR CALL 

845 


—— ieee - 


ee ee ee ee eee 


a 


G 2 
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CZKCF .P11 08-JUL-80 08:24 TRAPCATCHER FOR UNEXPECTED INTERUPTS SEQ 0019 
847 
ate SERRE RARER ARATE EERE EEE EEEES CARA HEA EERE REET eee 
9 e SPS OS SS SS SS ESE CESSES SESS SEES ESE SSS SSSSSHSSSSSSSSSSESSSSSSSESEEESEEEEEEES 
850 ; TRAPCATCAER FOR +d v7. INTERRUPTS 
851 ;THE STANDARD ‘‘TRAP CATCHER'’ IS PLACED 
852 ;BETWEEN ADDRESS 0 10 ADDR ESS 776. 
Rez ;1T LOOKS LIKE ‘’PC+2 HALT 
855 SREREEAAEARERAEREEEAR ERE REE EERE REE REAR AEREEREEEREEEEEREEEER ERE 
856 
857 000000 .=0 
858 000000 000000 000000 -WORD 0,0 
859 ;STANDARD INTERRUPT VECTORS 
860 pre ree meee ee ee cece cses= 
861 
862 000020 =20 
863 000020 004134 SSCOPE ; SCOPE LOOP HANDLER. 
864 000022 000340 PR7 ; SERVICE AT LEVEL 7. 
865 000024 007126 SPWRDN ;POWER FAIL HANDLER 
866 000026 00034 PR7 : SERVICE AT LEVEL 7 
867 000030 006512 SERROR R HANDLER 
868 000032 000340 PR7 ‘EERVICE AT LEVEL 7 
869 000034 006414 STRAP : GENERAL HANDLER DISPATCH SERVICE 
870 000036 000340 PR7 sSERVICE AT LEVEL 7 
tal -SBTTL ACT11 HOOKS 
873 SRE AERA RARER AERA AATARAERE RARER AAAEAAREREREE TA EEeS 
74 ‘HOOKS REQUIRED BY ACT11 
75 000040 $SVPC=. :SAVE PC 
876 000046 =46 
877 000046 004070 SENDAD 7; 1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
878 000052 -=52 
879 000052 000000 -WORD 0 s3eaaet LOC. TO ZERO 
rosy 000040 -=$SVPC 3: RESTORE P 
882 000174 74 
883 000174 DISPREG:0 :SOFTWARE DISPLAY REGISTER 
aes 000176 000000 EG: ;SOFTWARE SWITCH REGISTER 
886 000200 -=200 
rH 000200 000137 002402 JMP START :GO TO START OF PROGRAM 
889 
890 001000 -=1000 
891 001000 005200 055103 041513 MTITLE: .ASCII <200><12>/C2ZKCF/<200> 
(3) 091010 044502 020124 052123 eASCIZ /BIT STUFF MD L TSTS/<200> 
892 177570 DSWR = 177570 
893 177570 DDISP = 177570 
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CZKCF.P11 08-JUL-80 08:24 COMMON TAGS SEQ 0020 
He -SBTTL COMMON TAGS 
896 RARE SSSISILS LESSEE EEE ESLER SEES CEES EEC CE EEC CLT Cee ee eee rai 
897 ;*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
es: :*USED IN THE PROGRAM. 
900 001200 -=1200 
901 001200 SCMTAG: :;START OF COMMON TAGS 
902 001200 000000 -WORD 0 
903 001202 000 STSTNM: .BYTE 0 :; CONTAINS THE He NUMBER 
904 001203 000 SERFLG: .BYTE 0 ;; CONTAINS ERROR FLAG 
905 001204 000000 SItCNT: .W 0 ;; CONTAINS SUBTEST ITERATION COUNT 
906 001206 000000 SLPADR: .WORD 0 ;;CONTAINS SCOPE LOOP ADDRESS 
907 001210 000000 SLPERR: .WORD 0 :: CONTAINS SCOPE RETURN FOR ERRORS 
908 001212 000000 SERTTL: .WORD 0 ;; CONTAINS TOTAL ERRORS DETECTED 
909 001214 0 SITEMB: .BY 0 ::CONTAINS ITEM CONTROL BYTE 
910 001215 001 SERMAX: . 1 :;CONTAINS MAX. ERRORS PER TEST 
911 001216 SERRPC: .WOR 0 ;; CONTAINS PC OF LAST ERROR gs ed ee 
912 001220 000000 SGDADR: .WORD 0 :; CONTAINS ADDRESS OF ‘GCOD’ DAT 
913 001222 000000 SBDADR: R 0 :; CONTAINS ADDRESS OF ‘BAD’ DATA 
914 001224 000000 SGDDAT: .WORD 0 z TAINS ° Hh 
915 001226 000000 SBDDAT: .WORD 0 $3 TAINS ' * DATA 
916 001230 000000 -WORD 0 ;;RESERVED--NOT TO BE USED 
917 001232 900000 -WORD 0 
918 001234 000 SAUTOB: .BYTE 0 ;;AUTOMATIC MODE INDICATOR 
919 001235 000 SINTAG: .BYTE 0 :: INTERRUPT MODE INDICATOR 
920 001236 000000 «WORD 0 
921 dt ve 177570 R: -WORD ODSWR ;;ADDRESS OF SWITCH REGISTER 
922 001242 177570 DISPLAY: .WORD DDISP ;;ADDRESS OF DISPLAY REGISTER 
923 001244 177560 TKS: 177560 :;TTY KBD STATUS 
924 001246 177562 $TKB: 177562 sz TTY KBD BUFFER 
925 001250 177564 STPS: 177564 3s: TTY PRINTER STATUS REG. ADDRESS 
926 001252 177566 STPB: 177566 seTTy PRINTER BUFFER REG. ADDRESS 
927 001254 000 Ls 0 : TAINS NULL CHARACTER FOR FILLS 
928 001255 002 SFILLS: .BYTE 2 :3 CONTAINS # OF FILLER CHARACTERS Se 
929 001256 012 SFILLC: .BYTE 12 S3INSERT FILL CHARS. AFTER A ° 
930 001257 000 STPFLG: .BYTE 0 ;""TERMINAL AVAILABLE'’ FLAG (BIT<O7>=0- YES) 
931 001260 000000 EGAD: .WORD 0 : CONTAINS THE ADDRESS FROM 
932 ::WHICH (S$REGO) WAS OBTAINED 
933 001262 000000 EGO: .WORD 0 s3;CONTAINS (($REGAD)+ 
934 001264 000000 $REG1 -WORD 0 :; CONTAINS (($REGAD) +2) 
935 001266 000000 SREG2: .WORD 0 s: CONTAINS ((SREGAD) +4) 
936 001270 000000 SREGS: .WORD 0 :: CONTAINS ((S$REGAD) +6) 
937 001272 000000 SREG4: .WORD 0 ;; CONTAINS ((S$REGAD) +10) 
938 001274 000000 SREGS: .WORD 0 s; CONTAINS (($REGAD)+12) 
939 001276 000000 STMPO: .WORD 0 ;;USER DEFINED 
940 001300 000000 STMP1: .WORD 0 ;:;USER DEFINED 
941 001302 000000 STMP2: .WORD 6 ;;USER DEFINED 
942 001304 000000 STMP3: .WORD ;;USER DEFINED 
943 001306 000000 STMP4: .WORD 0 3 seen DEF INED 
944 001310 000000 STIMES: 0 :;MAX. NUMBER OF ITERATIONS 
945 001312 077 SQUES: .ASCII /72/ : ‘QUESTION MARK 
946 001313 015 SCRLF: .ASCII <15> i: CARRIAGE RETURN 
947 001314 000012 SLF: eASCIZ <12> ;LINE FEED 
948 WTTIIIIITI ITLL ttiiiti iii tii 
949 -SBTTL APT MAILBOX-ETABLE 
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950 

951 

952 

953 001316 
954 001316 
955 061320 
956 001522 
957 001324 
958 Ones 
959 001330 
960 001332 
961 001334 
962 001536 
963 001336 
964 001337 
965 001340 
966 001342 
967 001344 
968 

969 

970 

971 

972 

973 

974 001346 
975 001347 
976 

977 

978 

979 

980 001350 
981 

982 001352 
983 001355 
984 001354 
985 001356 
986 001357 
987 001360 
988 001562 
989 001365 
990 001364 
991 001366 
992 001570 
993 001372 
994 001574 
995 0013/6 
996 001400 
997 001402 
998 001404 
999 001406 
000 001410 
001 001412 
one 001414 
003 001416 
004 pola? 
005 00142 
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APT MAILBOX-ETABLE 
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5S 


;;APT MAILBOX 

: ;MESSAGE TYPE CODE 

>;FATAL ERROR NUMBER 
: T NUMBER 


AMSGTY 


AMSGAD 


; 3 APT we th REGISTER 
R SWITCHES 


AUSWR :7USE 
ACPUOP U TYPE. OPTIONS 
S15-112¢pu f YPE 
1/04 Yor 11/05=02,11/20=03,11/40=04,11/45=05 
/70=06 .PDQ=07 ,0=10 
1OSREAL TIME CLOCK 
Q=FLOATING POINT PROCESSOR 
8=MEMORY MANAGEMENT 
IGH ADDRESS,M.S. BYTE 
AMTYP1 ::MEM. TYPE BLKAi 
MEM.TYPE BYTE <== (HIGH BYTE) 
NSEC CORE=001 
NSEC BIPOLAR=002 
00 NSEC MOS= 003 
s HIGH ADDRESS ,BLK# 
MEM.LAST ADDR.=3 Bytes, THIS WORD AND LOW OF “‘TYPE’’ ABOVE 
Se reps nik YTE 


PE ,BLK 
3 3MEM. LAST ADDRESS ,BLK#2 
: EER TYPE Bee M.S.BYTE 


YPE ,BL 
io M.LAST ADDRESS .BLK#3 
ADDRESS ,M.S.BYTE 






AMAMS1 


























1S .BL 
i BUS fe) 


OR#2BUS PRIOR 


R DESCRIPTION WORD#1 
R DESCRIPTION WORD#2 






TOR WORD#0 
TOR WORD#1 
TOR eased 
TOR WORD# 

TOR WORD#4 
TOR WORD#5 
TOR eas 
TOR WORD# 

TOR WORD#S 


SEQ 0021 
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sessssascsescese 
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APT MAILBOX~-ETABLE SEQ 0022 


SDDW9: .WORD ADDW9 ;;DEVICE DESCRIPTOR WORDA9 
SDDW10: .WORD ADDW10 ;;DEVICE DESCRIPTOR WORD#10 
SDDW11: .WORD ADDW11 ;;DEVICE DESCRIPTOR WORDA11 
$DDW1 -WORD ADDW' ;;DEVICE DESCRIPTOR WORDA1 
$DDW1 WOR DDW1 ;;DEVICE DESCRIPTOR WORDA1 
SDDW14: .WORD ADDW14 ;;DEVICE DESCRIPTOR WORD#14 
$DDW15: .WORD ADDW15 ;;DEVICE DESCRIPTOR WORD#15 
SETEND: 


: PROGRAM CONTROL PARAMETER 





NEXT:  .WORD 0 : ADDRSS OF NEXT TEST TO BE EXECUTED 
LOCK: .WORD 0 : ADDRESS FOR LOCK CURRENT DATA 
: PROGRAM VARIABLES 
STRTSW: .WORD 0 : SWITCHES AT START OF PROGRAM 
STAT: .WORD 0 : KM STATUS WORD STORAGE 
. ” 0 : 
0 > STACK POINTER STORAGE 
0 : PROGRAM COUNTER STORAGE 
1 : 
0 > HIGHEST LOCATION FOR NPR'S 
1 : KMC11 SELECTED ACTIVE 
1 : OCTAL NUMBER OF KMC11’S 
BLKy 1 > ORIGINAL ACTIVE DEVICES. 
1 : WORKABLE NUMBER. 
WORD 0 : POINTER TO RUNNING DEVICES 
CREAM: .WORD KM.MAP~6 : TABLE POINTER 
MILK: WORD CNT.MAP=4 : TABLE POINTER 
: PROGRAM CONTROL FLAGS 
INIFLG: BYTE 0 : PROGRAM INITIALIZING FLAG 
LOKFLG: .BYTE 0 : LOCK ON CURRENT TEST FLAG 
QV.FLG: .BYTE 0 : QUICK VERIFY FLAG 
ete : ON FIRST PASS OF EACH KMC11 ITERATIONS WILL BE SUPPRES 


ee asinine enn 
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ERROR POINTER TABLE 
~SBTTL ERROR POINTER TABLE 


:>*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT — OCCUR. 
: * THE iron sitive IS OBTAINED BY USING THE INDEX NUMBER 


FGUND IN 
;*LOCAT ION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
-*NOTE1: If SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC) 
* *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
7* EM ++POINTS TO THE cre MESSAGE 
id DH ;POINTS TO THE DATA HEADER 
;* DT POINTS TO THE DA ATA 
;* DF s;POINTS TO THE DATA FORMAT 
SERRTB: 
EVEN 
7* ¥ :; DOES NOT APPLY IN THIS DIAGNOSTIC. 
0 
0 
EM1 
DH1 s ERROR 1 
DT1 
EM2 
DH2 : ERROR 2 
DT2 
EM3 
DH3 ; ERROR 3 
DT3 
EMG 
DH4 : ERROR 4 
DT4 
EM4 
DHS s ERROR 5 
pT5 
EMS 
DH3 : ERROR 6 
DT6 
EM6 
DH6 : ERROR 7 
DT5 
EM7 
5 : ERROR 10 
EM10 
s ERROR 11 
EM11 
DH3 : ERROR 12 
pDT3 
EM12 
DH6 s ERROR 13 
DTS 
—EM13 
DH6 ; ERROR 14 


a 


CaS - 


NR 
—OO@NOUFS WN oO 


Mmrorrorrr 
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P11 08-JUL-80 08:24 ERROR POINTER TABLE SEQ 0024 
001630 032703 EM14 
001632 033303 DH3 » ERROR 15 
001634 033662 DTS 
001636 0 375 EM15 
001640 033341 DH4 s ERROR 16 
001642 033612 DT4 
001644 032774 EM16 
001646 000000 6 » ERROR 17 
001650 000000 0 
001652 033910 EM17 
001654 000000 0 » ERROR 20 
001656 000000 0 
001660 032570 EM11 
001662 033433 DH6 +» ERROR 21 
001664 033624 DTS 
001666 033054 EM20 
001670 033303 DH3 : ERROR 22 
001672 033660 DT7 
001674 033075 EM21 
001676 033303 DH3 ; ERROR 23 
001700 033600 DT3 
001702 033054 EM20 
1704 > ERROR 24 
001706 
001710 033112 EM22 
001712 033303 DH3 > ERROR 25 
001714 033600 3 
002034 .=2034 
"SBTTL APT PARAMETER BLOCK 
Ff AAA SAA AES SAAAAAAASS AACA RAAAAAEAAEAERAAAAAAAAARAAAERAAAARARERE 
“SET LOCATIONS 26 AND 44 AS REQUIRED FOR APT 
FF SSAA AA SAHARA AAAAEAAAAAAAAATAAAAAAAAKAAAAAARAAAAARAREAAAAAAAEEE 
002034 .$X=.  :;SAVE CURRENT LOCATION 
000024 =24  ::SET POWER FAIL TO POINT TO START OF PROGRAM 
000024 000200 200 +:FOR APT START UP 
000044 .=44  ::POINT TO APT INDIRECT ADDRESS PNTR. 
000044 002034 SAPTHDR ::POINT TO APT HEADER BLOCK 
002034 .=.$X  ::RESET LOCATION COUNTER 
FF ARAAARAAAAARATAAKAAEAAAAAKAASRARAAAAAEAAAAARAAARARAARARAARERALERE 
‘SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
INTERFACE SPEC. 
002034 SAPTHD: 
002034 000000 $HIBTS: .WORD 0 ::TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
002036 001316 SMBADR: .WORD $MAIL ::ADDRESS OF APT MAILBOX (BITS 0-15) 
002040 000132 STSTM: .WORD 90. ':RUN TIM OF LONGEST TEST 
002042 000137 SPASTM: WORD : “:RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
2044 000137 SUNITM: .WORD 95. ; ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
002046 000052 “WORD  $ETEND-SMAIL/2 ;;LENGTH MAILBOX-E TABLE (WORDS) 
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APT PARAMETER BLOCK 


;KMC11 CONTROL INDICATORS FOR CURRENT KMC11 UNDER TEST 


STAT1: 0O 
STAT2: 0 
STATS: 0 


:KMC11 VECTOR AND REGISTER INDIRECT POINTERS 


KMRVEC: 0 POINTER TO KMC11 RECEIVER INTERRUPT VECTOR 

KMRLVL: 0 ;POINTER TO KMC11 RECEIVER INTERRUPT SERVICE PS 
KMTVEC: 0 POINTER TO KMC11 TRANSMITTER INTERRUPT VECTOR 
KMTLVL: 0 POINTER TO KMC11 TRANSMITTER INTERRUPT SERVICE PS 
KMCSR: 0 ;POINTER TO KMC11 CONTROL STATUS REGISTER 

KMCSRH: 0 POINTER TO KMC11 CONTROL STATUS REGISTER HIGH BYTE. 
KMCTL: 0 POINTER TO KMC11 CONTOL OUT REGISTER 

KMPO4: 0 ;POINTER TO KMC11 PORT REGISTER(SEL 4) 

KMPO6: 0 ;POINTER TO KMC11 PORT REGISTER(SEL 6) 


sKMC11 STATUS TABLE AND ADDRESS ASSIGNMENTS 


-=2100 
KM .MAP 
KMCROO: .BLKW ;CONTROL STATUS REGISTER FOR KMC11 NUMBER 00 
100: .BLKW ;VECTOR FOR KMC11 R 
cee -BLKW ;DDCMP LINE# FOR KMC11 NUMBER 00 
00: .BLKW ;3RD STATUS WORD 
fyb -BLKW ;CONTROL STATUS REGISTER FOR KMC11 NUMBER 01 
KMS101: .BLKW ;VECTOR FOR KMC11 NUMBER 
KMS201: .BLKW ;DDCMP LINE# FOR KMC11 NUMBER 01 
ul: . ;5RD STATUS WORD 


:CONTROL STATUS REGISTER FOR KMC11 NUMBER 02 
;VECTOR FOR KMC11 NUMBER 02 

sDDCMP_LINE# FOR KMC11 NUMBER 02 

; SRD STATUS WORD 


CONTROL STATUS REGISTER FOR KMC11 NUMBER 05 
VECTOR FOR KMC11 NUMBER 

;DDCMP _LINE# FOR KMC11 NUMBER 05 

:SRD STATUS WORD 


;CONTROL STATUS REGISTER FOR KMC11 NUMBER 04 
;VECTOR FOR KMC11 NUMBER 04 

;DDCMP LINE# FOR KMC11 NUMBER 04 

;5RD STATUS WORD 
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KMS306: . 
KMCRO?: 


KMS307: 
KMCR10: 


KMS310: 
KMCRI1: . 





KMCR12: 


KMS317: . 


CROS: . 
O05: . 
KMS205: . 
KMS305: . 


KMCRO6: . 


KMS311: . 





QO8-JUL-80 08:27 PAGE 27 
ch APT PARAMETER BLOCK 


eB ed ed cod mee mewd) eve cody — eS) ee wade eid owl ee ee woed ancl wend oad a ed eed Dd eed ed od — 23 2 2 Dd ee eed od aw’ awd od oD 


+ CONTROL STATUS REGISTER FOR KMC11 NUMBER 05 
;VECTOR FOR KMC11 NUMBER 05 

;DDCMP _LINE# FOR KMC11 NUMBER 05 

;3RD STATUS WORD 


+ CONTROL STATUS ep tf dh FOR KMC11 NUMBER 06 
;VECTOR FOR KMC11 

:DDCMP LINE# FOR KMC11 NUMBER 06 

;3RD STATUS WORD 


>CONTROL STATUS REGISTER FOR KMC11 NUMBER 07 
:VECTOR FOR KMC11 NUMBER 07 

;DDCMP LINE# FOR KMC11 NUMBER 07 

;3RD STATUS WORD 


CONTROL STATUS petals FOR KMC11 NUMBER 10 
: VECTOR FOR wth 

LINE# FOR KMAC11 NUMBER 10 
gRD S STATUS WORD 


+ CONTROL STATUS REGISTER FOR KMC11 NUMBER 11 
;VECTOR FOR KMC11 NUMBER 11 

:DDCMP_LINE# FOR KMC11 NUMBER 11 

;3RD STATUS WORD 


;CONTROL STATUS REGISTER FOR KMC11 NUMBER 12 
: VECTOR FOR KMC11 R 1 

;DDCMP_LINE# FOR KMC11 NUMBER 12 

;3RD STATUS WORD 


;CONTROL STATUS REGISTER FOR KMC11 NUMBER 15 
ECTOR FOR KAC11 R 13 


:V 
:DDCMP LINE# FOR KMC11 NUMBER 13 
:3RD STATUS WORD 


sCONTROL STATUS REGISTER FOR KMC11 NUMBER 14 
i VECTOR FOR KMC11 NUMBER 14 

;DDCMP_LINE# FOR KMC11 NUMBER 14 

:3RD STATUS WORD 


sCONTROL STATUS REGISTER FOR KMC11 NUMBER 15 
: VECTOR FOR KMC11 R 15 

;DDCMP_LINE# FOR KMC11 NUMBER 15 

;3RD STATUS WORD 


;CONTROL STATUS REGISTER FOR KMC11 NUMBER 16 
:VECT OR F 11 R 1 


:DDCMP_LINE# FOR KMC11 NUMBER 16 
;3RD STATUS WORD 


;CONTROL STATUS REGISTER FOR KMC11 NUMBER 17 
:VECTOR FOR KMC11 17? 

:DDCMP LINER FOR KMC11 NUMBER 17 

:3RD STATUS WORD 
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APT PARAMETER BLOCK 


;KMC11 PASS COUNT AND ERROR COUNT TABLE 


CNT.MAP: 

PACTOO: 0 ;PASS COUNT FOR KMC11 NUMBER 00 
ERCTOO: 0 ;ERROR COUNT FOR KMC11 NUMBER 00 
PACTO1: 0 :PASS COUNT FOR KMC11 NUMBER 01 
ERCTO1: 0 sERROR COUNT FOR KMC11 NUMBER 01 
PACTO2: 0 ;PASS COUNT FOR KMC11 NUMBER 02 
ERCTO2: 0 sERROR COUNT FOR KMC11 NUMBER 02 
PACTO3: 0 ;PASS COUNT FOR KMC11 NUMBER 03 
ERCTOS: 0 sERROR COUNT FOR KMC11 NUMBER 03 
PACTO4: 0 ;PASS COUNT FOR KMC11 NUMBER 04 
ERCTO4: 0 sERROR COUNT FOR KMC11 NUMBER 04 
PACTOS: 0 ;PASS COUNT FOR KMC11 NUMBER 05 
ERCTOS: 0 sERROR COUNT FOR KMC11 NUMBER 05 
PACTO6: 0 sPASS COUNT FOR KMC11 NUMBER 06 
ERCTO6: 0 sERROR COUNT FOR KMC11 NUMBER 06 
PACTO?7: 0 ;PASS COUNT FOR KMC11 NUMBER 07 
ERCTO7: 0 ;ERROR COUNT FOR KMC11 NUMBER 07 
PACT10: 0 ;PASS COUNT FOR KMC11 NUMBER 10 
ERCT10: 0 sERROR COUNT FOR KMC11 NUMBER 10 
PACT11: 0 ;PASS COUNT FOR KMC11 NUMBER 11 
ERCT11: 0 sERROR COUNT FOR KMC11 NUMBER 11 
PACTi2: 0 ;PASS COUNT FOR KMC11 NUMBER 12 
ERCTi2: 0 sERROR COUNT FOR KMC11 NUMBER 12 
PACT13: 0 ;PASS COUNT FOR KMC11 NUMBER 13 
ERCT13: 0 sERROR COUNT FOR KMC11 NUMBER 13 
PACT14: 0 :PASS COUNT FOR KMC11 NUMBER 14 
ERCT14: 0 sERROR COUNT FOR KMC11 NUMBER 14 
PACT15: 0 :PASS COUNT FOR KMC11 NUMBER 15 
ERCT15: 0 sERROR COUNT FOR KMC11 NUMBER 15 
PACT16: 0 ;PASS COUNT FOR KMC11 NUMBER 16 
ERCT16: 0 sERROR COUNT FOR KMC11 NUMBER 16 
PACT17: 0 sPASS COUNT FOR KMC11 NUMBER 17 
ERCT17: 0 sERROR COUNT FOR KMC11 NUMBER 17 
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FORMAT OF STATUS TABLE 


15 14 13 12 11 10 09 08 O07 06 05 04 03 02 01 00 


I 
en Ro Re Ae SS Oe ae oe ee ee ee ; CSR 


I l eee 
I *] «#1 * *[ * ® pee See Set Se a Se i STATI 


I I I 
. st ce. eS ee, tee Come: Me “ STAT2 


Be Ee Sak Se See Bee ee ee Se Sas Ae ote ce ee eee 
Cee et Bae Soe ie lage SNe, Se ee ee eee Se Se oe Oe coe See | STATS 
ee Be ees See: SIS ay Se ee oe Se? Ge? Soe Sak eee ee 


CSR: CONTAINS KMC11 CSR ADDRESS 


STAT1: BITS 00-08 g KMC11 VECTOR ADDRESS 
BIT14=1 227? TURNAROUND CONNECTOR IS ON 
B1T14=0 NO TURNAROUND C CTOR 
B1T13=0 LINE UNIT i. AN M8201 
B1T13=1 Ts UNIT IS AN M8202 


BITS 09-11 1s nel BR PRIORITY LEVEL 


STAT2: LOW BYTE IS SWITCH PAC#1 (DDOCMP LINE NUMBER) 
HIGH BYTE IS SWITCH PAC#2 (BM875 BOOT ADD) 


STATS: BITO=1 DO FREE RUNNING TESTS ON KMC 
MUST BE SET TO A ONE MANUALLY CPROGRAMS G AND H ONLY)) 


DMC11=DA (RS geo 
DMCTI-FA (V. 


w 
te 
= 
— 
mM 
ut 
—"* 


(MU 
BI Cae 
BIT2=1 
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001 
105 


000340 


002402 
001216 
000001 
002402 
000001 
001340 


177776 


000024 
001476 


001502 
001504 
001500 


001202 
001206 


001336 
000176 


000042 


001446 


001446 





PROGRAM INITIALIZATION AND START UP. 


START: 


23$: 


3$: 


6$: 


7$: 


20$: 


or 
© 
oOo 
x 
© 
_ 
Peet 
a) 
moe 


: TYPE TITTLE MES 


MOV 
M 


ALIZATION 

RRUPTS 

SOR STACK 

AIL VECT 
PROGRAM CONTROL FLAGS AND COUNTS 

SAGE 

#340,PS LOCK OUT INTERRUPTS 

#STACK,SP T UP STACK 
#SPWRON #24 ‘SET UP POWER FAIL VECTOR 
KMNUM , SAVNUM ;SAVE NUMBER OF acre IN SYSTEM. 
SWFLG ;CLEAR SOFT  * LAG 
SERFLG :CLEAR ERROR FLAG 
QV.FLG :ZERO QUICK VERIFY FLAG 
#KM.MAP=10,CREAM:GET MAP POINTER. 


#CNT.MAP-4,MILK ;GET PASS COUNT MAP POINTER 
#BIT 15, RUN POINT POINTER TO FIRST DEVICE. 
#CNT. MAP, RO sPA ASS COUNT POINTER TO RO 

+ AR TABLE 


CRO 
#CNT.MAP+100,RO : DONE YET? 
23$ ;KEEP 


GOING 

SERRPC ; CLEAR a cr POINTER 
#1, STSTNM ;SET UP FOR TEST 1 
#.START,SLPADR ;SET UP FOR —— FAIL BEFORE 

TESTING STARTS 
#1, SENV ; IS IT RUNNING UNDER APT? 

: IF NOT CHECK FOR TYPE OF SWITCH REGISTER. 
SSWREG , SWREG ; LOAD SOFTWARE SWITCH REG. 
6$+2 : SET UP SOFTWARE SWITCH REG. 
a#6 ,~(SP) ; SAVE CURRENT VECTORS 
a#4 ,-(SP) 


“SET UP FOR TIMEOUT 
#177570, SWR “SET SWR TO HARD SWR ADDRESS 
#177570. SISPLAY *SET DISPLAY TO HARD SWR ADDRESS 
#-1,aSuR :REFERENCE HARDWARE SWITCH REGISTER 
gs+2 °] WR ANYW 


F = -1 USE SOFT S$ AY 
-1 USE HARD SWR 
sae (SP)+ 


[IF IY EXISTS AND NOT = 
“ADJUST STACK 
aS wR >POINTER TO SOFT SwWR 
#D1S née DISPLAY: ;POINTER TO SOFT DISPLAY REG 
(SP) +, 0084 sRESTORE VECTORS 


(SP) +. a8 
atele SHAS INITIALIZATION BEEN PERFORMED 

20$ BR IF YES 

#SENDAD ,@#42 :IF ACT=11 AUTOMATIC MODE, DON'T TYPE 1D 
MTITLE :TYPE TITLE MESSAGE 

PC, CKSWR “CHECK FOR SOFT SWR 

aswR, STRTSW :STORE STARTING SWITCHES 

a#42 is iT RUNNING IN AUTO MODE? 

STRTSW “IF YES, CLEAR SWITCHES 

#SWOO,STRISW IF swOb=1, QUESTIONS ARE ASKED. 

17$ :BR LF Sw wob=1 

STRTSW “BIT?=12? 





SEQ 0031 
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P11 08-JUL-80 08:24 PROGRAM INITIALIZATION AND START UP. SEQ 0032 
1437 002716 100007 BPL 17$ :BR IF SwWO7=0 
1438 002720 005737 001470 TST KMACTV s ARE ANY DEVICES SELECTED? 
1439 002724 001027 BNE 16$ RIF Y 
1440 002726 104401 010731 TYPE, NOACT ‘NO DEVICES SELECTED. 
1441 002732 000000 HALT “STOP THE SHOW 
1442 002734 000776 BR .=2 “DISQUALIFY CONTINUE SWITCH 
1443 002736 105737 001336 17$: STB SENV : IS IT UNDER APT DUMP MODE? 
1444 002742 001405 BEQ 27$ : YES, CHECK IF APT SIZED IT? 
1445 002744 132737 000001 001336 BITB #1,$ENV : I§ IT UNDER Q,V OR RUN MODE? 
1446 002752 001012 BNE 0$ : YES, NEEDS ONLY APT SIZING. 
1447 002754 000406 BR 3$ ; NO, at 4 REGULAR AUTO.SIZE. 
1448 002756 105737 001337 27$:  TSTB  $ENVM : IS IT SIZED BY APT? 
1449 002762 100406 BM! 30$ : YES, NEEDS ONLY APT SIZING. 
1450 002764 042737 000001 001446 BIC #SWOO,STRTSW  : SIZE ONLY IN AUT : 
1451 002772 004737 012236 33$: JSR PC,AUTO.SIZE |; GO DO THE AUTO.SIZ 
1452 002776 000402 BR ; GO PRINT T 
1453 004737 013716 30$: JSR PC, APT.SIZE : GO DO THE APT SIZING. 
1454 105737 001506 16$: TSTB  INIFLG “FIRST TIME? 
1455 003010 001410 BEQ 21$ :BR IF YES 
1456 003012 105737 001446 TSTB = STRTSW : IF USING SAME PARAMETERS DONT TYPE MAP 
1457 003016 100431 BMI 
1458 003070 032737 000006 001446 BIT #BIT1'BIT2,STRISW;IS Test NO. OR LOCK SELECTED 
1459 003026 001403 BEQ 24$ -IF NO THEN TYPE STATUS 
1460 003030 000424 BR 1$ IF YES DO NOT TYPE STATUS 
1461 003032 105137 001506 21$: COMB  INIFLG :SET FLAG 
1462 003036 104401 010077 24$: TYPE  ,XHEAD TTPE. HEADER 
1463 003042 012704 002100 MOV BKM. MAP, RG *SET POINTER 
1464 003046 010437 001276 5$: MOV R4,$TM >SET ADDRESS 
1465 52 012437 001300 MOV (Ro)+,STMP1 >SET CSR 
1466 003056 001411 BEQ 1$ :ALL DONE IF ZERO 
1467 003060 012437 001302 MOV (R4)+,STMP2 >SET STATI 
1468 003064 012437 001304 MOV (R4)+,$TMPS : SET STAT? 
1469 003070 012437 001306 MOV (R4)+,STMPS >SET STATS 
1470 003074 104416 CONVRT :TYPE OUT STATUS MAP 
1471 003076 011206 XSTATQ : 
1472 003100 000762 BR 5$ 
1473 003102 012700 002100 1$: MOV #KM.MAP,RO :RO POINTS TO STATUS TABLE 
1475 F RARAAAAAAAAAEKTAAETSR AAAS ALACRA RARARAAREATAEAARARERAAAAAARREAAAAEAAE 
1476 <SeAUTO SIZE TEST 
1477 :zeTHIS TEST VERIFYS THAT THE KMC11S AND/OR KMC11S ARE a THE CORRECT FLOATING 
1478 ;*ADDRESSES FOR YOUR SYSTEM. IF THIS TEST FAILS. IT IS NOT A HARDWARE ERROR. 
1479 *CHECK THE ADDRESSES OF ALL FLOATING DEVICES (04. “Dh pa OU, DUP. LK. DAC. DZ.KMC) . 
1480 elk THERE ARE NO OTHER FLOATING DEVICES BEFOR mcil, 
1481 ::* KMC11 IS 760110. NO DEVICE SHOULD EVER BE i 
1482 i: #ADDRESS 7 
1483 Pere errorr rie rrerririiiritiiitilitiititi ti LiTiii TTT ieee thee 
1484 
1485 003106 013746 000004 MOV a#4,-(SP) sSAVE LOC 4 
1486 003112 013746 000006 MOV a#6,-(SP) :SAVE LOC 6 
1487 003116 005037 0060006 CLR as “CLEAR VEC#2 
1488 003122 005037 001302 CLR STMP2 “CLEAR FLAG 
1489 003126 011037 002066 AUSTRT: MOV (RO) ,KMCSR ;GET NEXT KMC CSR 
1490 003132 001510 BEQ U 
1491 003134 012737 003240 000004 28: MOV #NODEV,ae4 is T UP FOR TIMEOUT 
1492 003142 012703 000010 3$: MOV #10,R3 1S COUNT OF DEVICES BEFORE KMC 
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P11 0B=JUL-80 08:24 PROGRAM INITIALIZATION AND START UP. SEQ 0033 
003146 012702 003342 4$: MOV #DEVTAB,R2 :R2 IS DEVICE TABLE PONTER | 
003152 012701 160010 MOV #160010.R1 "START WITH ADDRESS 160010 | 
003156 005711 FLOAT: TST (R1) ‘CHECK ADDRESS IN R1 | 
003160 111204 MOVB  (R2),R4 :1F NO TIMEOUT, GET NEXT ADDRESS | 
903162 060401 ADD R4,RI “IN R1 | 
003164 005201 INC R1| : 

003166 040401 BIC R4,R1 ; 
003170 005703 TST R3 sANY MORE DEVICES TO CHECK FOR? 
003172 001371 BNE FLOAT :BR IF Y | 
003174 012737 003244 000004 MOV #ERR ae :OK ONLY KMC'S ARE LEFT, SET UP FOR TIMEOUT | 
003202 005711 FY: TST (R1) =CHECK KMC ADDRESS 
003204 020137 002066 CMP R1,KMCSR “DOES IT MATCH 
003210 001403 BEQ 7 : F YES 
003212 062701 000010 ADD #10,R1 “GET NEXT KMC ADDRESS 
003216 000771 BR FY "DO IT AGAIN 
003220 062700 000010 OK: ADD #10,R0 :SKIP TO NEXT KMC CSR 
003224 062701 000010 ADD #10,R1 > GET NEXT KMC ADDRESS 
003230 011037 002066 MOV (RO) ,KMCSR : GET NEXT KMC CSR 
003234 001447 BEQ AUDONE : BRANCH IF ALL DONE. 
003236 000761 BR FY : DO IT AGAIN. 

3240 122243 NODEV: CMPB (R2)+,-(R3) [ON TIMEOUT, INC R2, DEC R3 
003242 000002 RTI :SLPADR 
003244 005737 001302 ERR: TST STMP2 :CHECK FLAG IF = 0 TYPE HEADER 
003250 001014 BNE 1$ :SKIP HEADER 
003252 104401 TYPE :TYPEQUT HEADER MESSAGE 
003254 011107 CONERR : CONFIGURATION ERROR! !!! 
003256 012737 003244 001460 MOV #ERR, SAVPC >SAVE PC FOR TYPEOUT 

3264 104417 CNVRT “TYPE OUT ERROR PC 

66 003322 ERRPC : 

003270 104401 TYPE “TYPE REST OF HEADER 
003272 011154 CNERR : 
003274 012737 177777 001302 MOV #-1,$TMP2 :SET FLAG SO IT ONLY GETS TYPED ONCE 
003302 010137 001264 1$: MOV R1,$REG1 SSAVE R1 FOR TYPEOUT 
003306 104416 CONVRT 
003310 003330 CONTAB : TYPE CSR VALUES 
003312 194401 3$: TYPE 
003314 011175 KMCM 
003316 022626 4$: CMP (SP)+,(SP)+ sADJUST STACK 
003320 000737 BR OK :BR TO GET OUT 
003322 000001 ERRPC: 1 
Ons 006 002 BYTE 6,2 

3 26 001460 SAVPC 
0033 2 CONTAB: 2 
003332 006 004 BYTE 6,4 
003334 001264 SREG1 
003336 006 002 BYTE 6,2 
003340 002066 KMCSR 
00334 007 DEVTAB: .BYTE 7 DJ 
00334 017 BYTE 17 :DH 
003344 007 BY 7 :DdQ 
003345 007 BY 7 DU 
003 007 BYTE 7 :puP 
003347 007 BYTE 7 sLK 
003350 007 .BYTE 7 : DMC 
003351 007 BYTE 7 302 
003352 007 BYTE 7 7 KMC 
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000006 
000004 
000010 


010017 


175630 
007672 
175610 
001470 


000300 
000302 


001000 


001200 
000006 
000004 
003546 
000006 


157776 


007776 
001466 


001446 
001474 


001470 


000004 


177776 
001446 


004146 
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PROGRAM INITIALIZATION AND START UP. 


EVEN 

AUDONE : 

1$: MOV 
MOV 
BIT 
BEQ 
TYPE 
CLR 
HALT 
CMP 
BLOS 
TYPE 
HALT 
BR 

2$: MOV 
MOV 
HALT 

3$: MOV 
MOV 

4$: MOV 
CLR 
CMP 
CMP 
BNE 

sTEST START 

-BEGIN: MOV 
MOV 

6$: 

7$: 

23: 

10$: 

1$: 





(SP)+,a46 
(SP)+,a#4 

#SWO3,STRTSW 

3$ 

»>MNEW 

RO 

@SWR,SAVACT 
»MERRS 

72 

aSWR,KMACTV 
KMACTV,RO 
#300, af 
#302,R 

R1 th) 
(R1)+ 
(RO)+,(R1)¢ 
#1000 ,R0 
4$ 


RESTART 


#STACK » SP 
a4, ~(SP) 
#23 ,a84 
as6 


RO)+ 
#157776,R0 


(SP)+,(SP)+ 


$086 


? 

G37 600,20 
#340,°S 
#B1T2, STRISY 
MLOCK 
#NOP,TTST 
BRW,TTST 





AS Ph LOC g 
sRESTORE LOC 4 
i SELECT SPECIFIC DEVICES?? 


N 
‘TYPE. THE Ties: 
:ZER 0 can" LIGHTS 
WAIT FOR USER vk TELL WHAT DEVICES TO RUN 

:1S THE NUMBER VALID? 

BR IF NUMBER 15 OK. 

>TELL USER * INVALID NUMBER. 

;STOP EVERY THING. 

:RESTART THE oe hare AGAIN. 

:GET NEW DEVICE PATTERN 
:SHOW THE USER WHAT HE "SELECTED. 
CONTINUE DYNAMIC SWITCHES. 
;PREPARE TO CLEAR THE FLOATING 
;VECTOR AREA. @77 

sSTART PUTTING "'PC+2 - HALT"’ 

; IN VECTOR AREA. 
:POP POINTERS 

sALL DONE?? 


“BR IF NO. 


sSET UP STACK 


31S it a LEAST 28K 
: SAVE 2k FOR MONITORS 


OR 
:RESTORE LOC 6 
NUE 


I 
CADJUST STACK 
>GET LAST GOOD ADDRESS 
“SAVE 2K FOR MONITORS 
its IT 8k? 
iI DON'T SAVE 2k 


TLOCK OUT yy AL 


sCHECK FOR LOC 

;BR IF NO LOCK DESIRED 
: TYPE LOCK SELE . 

: SET TO LOCK 


;CONTINUE ALONG. 
;PREPARE NORMAL SCOPE ROUTINE 


SEQ 0034 





J 3 


MACY11 30A(1052) Q8-JUL-80 08:27 PAGE 36 
P11 08-JUL-80 08:24 PROGRAM INITIALIZATION AND START UP. SEQ 0035 
003634 ee 011606 001206 3%: MOV WCYCLE,SLPADR ;START AT ‘'CYCLE'’ FIND WHICH DEVICE TO TEST 
003642 032737 000002 001446 4$: BIT #SWO1, STRTSW 71S TEST NO. SELECTED? 
003650 001002 BNE “a ;BR IF YES 
003652 104401 007642 TYPE M ; TYPE R 
003656 000177 175324 5$: JMP SSLPADR :START TESTING 


———__» ne a LFS LT EE A — A 
—— — Reena re ae re a se te sent sss > —--———- 












CZKCF MACY11 30A(1052) O8-JUL-80 08: . PAGE 37 
CZKCF.P11 C8-JUL-80 08:24 END OF PASS ROUTINE SEQ 0036 
1610 ;END OF PASS 
1611 ; TYPE NAME OF TEST 
1612 UPDATE PASS COUNT 
1615 CHECK FOR exit TO ACT=11 
iene :RESTART TEST 
1918 ~SBTTL END OF PASS ROUTINE 
1618 SRE RR EERE ERA RE RARE AEE REEERE EERE 
1619 : PINCREMENT THE PASS NUMBER ($PASS) 
1620 ;*IF THERES A eh GO TO IT 
ye 3 :*IF THERE ISN'T JUMP TO CYCLE 
1623 003662 SEOP: 
1624 003662 ) RESET 
1625 3664 005237 001324 ‘ INCREMENT oy PASS COUNT 
1626 003670 105037 001203 CLRB + CLEAR ERROR FLAG 
1627 003674 104401 007620 TYPE : TYPE END PASS: 
1628 003700 104401 007745 TYPE : TYPE ‘'CSR’’ 
1629 37 104417 004104 CNVRT ; SHOW IT. 
1630 003710 104401 007753 TYPE ; TYPE VECTOR. 
1631 003714 104417 004112 CNVRT ‘ ‘ 
1632 003720 104401 007761 TYP ; TYPE "* PASSES * 
1635 003724 104417 004120 CNVRT ; SHOW IT. 
1634 37 104401 007772 TYPE ; TYPE ** ERRORS *’ 
1635 3 104417 004126 CNVRT > SHOW IT. 
1636 003740 013700 001504 V ; SET POINTER TO PASSCNT. 
163? tlle. Ae 001324 MOV ; SAVE THE PASS COUNT. 
16 7 0137 001212 MOV ; SAVE ERROR C 
1639 003754 013777 002060 176074 MOV KMRLVL.@KMRVEC ; RESTORE THE RECEIVER  <aaammaalh VECTOR. 
1640 003762 005077 176072 CLR @KARLVL : RESTORE RECEIVER LEV 
1641 003766 013777 002064 176066 MOV KATLVL ,@KMTVEC : RESTORE THE TRANSMIT INTERRUPT VECTOR. 
1642 003774 005077 17 CLR pili L ; RESTORE TRANSMITTER LEVEL 
1643 005337 001476 DEC ; ALL DEVICE TESTED? 
1644 0010 BNE ye ; BRANCH IF NO. 
1645 112737 000377 001511 MOVB # Eg F Ae : SET QUICK VERIFY FLAG. 
1646 004014 0135737 001472 001476 MOV ; RESTORE DEVICE COUNT. 
1647 004022 905037 001216 CLR : CLEAR LAST ERROR PC 
1648 eenss 005037 001310 CLR Hey 4 3 THE NUMBER OF ITERATIONS 
1649 0040 005237 001324 INC AP oes pe oy gg PASS NUMBER 
1650 004036 042737 1 001324 BIC + DON'T ALLOW A NEG. NUMBER 
1651 004044 327 DEC 33 
1652 004046 SEOPCT: .WORD 
1653 004050 003013 BGT SDOAGN :3YES 
1654 004052 012737 MOV (PC)+,a(PC)+ :sRESTORE COUNTER 
1655 004054 000001 SENDCT: .WORD 1 
1 sn te SEOPCT 
1657 013700 000042 $GET42: MOV a#42 ,RO ::GET MONITOR atte 
1658 004064 001405 BEQ SDOAGN ;;BRANCH IF NO MONITO 
1659 sats 000005 RESET ::CLEAR THE WORLD 
1660 0 004710 SENDAD: JSR PC, (RO) ::;G0 TO MONITOR 
1661 004072 000240 NOP :3 SAV 
106¢ 004074 000240 NOP 33 
1663 004076 000240 NOP ;:ACT11 
1664 004100 SDOAGN: 
1665 004100 000137 JMP a(PC)+ ; ;RETURN 
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8 
END OF PASS ROUTINE 
SRTNAD: .WORD CYCLE 
XCSR: 1 


-BYTE 6,2 
KMCSR 
XVEC: 1 
BYTE 4,2 
KMRVEC 
XPASS: 1 
BYTE 
SPASS 
XERR: 1 
BYTE 
SERTTL 
;SCOPE LOOP AND INTERATION HANDLER 


6,2 


6.2 


-SBTTL SCOPE HANDLER ROUTINE 


TPIT ITI TI i titi ritiiiiiiii iii iit iiiiiiiiiiititititt 
:eTHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
;*AND LOAD THE TEST NUMBER (STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:U>) 
:*AND LOAD THE ERROR FLAG (SERFLG) INTO Aye gee 08> 

:*THE SWITCH OPTIONS Ag BY THIS ROUTINE ARE: 


:*SW16=1 LOOP ON TEST 
*SW11=1 INHIBIT ITERATIONS 
:*CALL 
zt SCOPE >: SCOPE=I0T 
SSCOPE: 
CLR SERRPC : CLEAR LAST ERROR PC 
CMP TST1¢2, (SP) : is THIS TEST #1 ? 
BEQ SXTSTR : IF SO DON'T LOOP. 
TTST: @8R 1$ : 
TSTB = a@STKS : KEYBOARD DONE ? 
BPL VER ; IF NO DONT WAIT. 
MOV art 2(8P) ; 
1$: BIT bia ;;LOOP ON PRESENT TEST? 


LOOP 
sYES IF Swi4=1 





:1f RUNNING ON THE "XOR)” TESTER CHANGE 
:STHIS INSTRUCTION TO A ‘NOP’ (NOP=240) 
av ~(sp) JISAVE THE CONTENTS OF THE ERROR VECTOR 
MOV :3SET FOR TIMEOUT 
TST 77060 ;TIME OUT ? 

MOV (spe AFERRVEC ; SRESTORE E THE ERROR V VECTOR 


BR 260 TO T EST 
5$: CMP (SP)+,(SP)+ CLEAR THE STACK AFTER A TIME OUT 
MOV (3P) + /aPERRVEC tS ge oo ERROR VECTOR 


C 
BR ON THE PRESENT TEST 
6$::##AAHEND OF CODE FOR THE XOR ‘feSTenaaess 
2$: TB RFLG 










TS ;;HAS AN ERROR OCCURRED? 

BEQ tok IF NO 
4$: CLRB SERFLG >:ZERO THE ERROR FLAG 

CLR STIMES ;;CLEAR THE NUMBER OF ITERATIONS TO MAKE 
3$: BIT #B1T11,aSwR >; INHIBIT ITERATIONS? 


SN NS SN SSS NS SNS SS 
UNG SS Sen 
WN —"OOOnNOulwr -: 
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ROS 
“i 
~Irm 
IWS 
~ 
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we ws 
NO NNN 
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174700 
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COPE HANDLER ROUTINE 


1$: 
SSVLAD: 


fOVER: 


BRW: 
SMXCNT: 


.SCOP1: 


R 
. WORD 
20 


1$ :;BR IF YES 

SPASS ::1F FIRST PASS OF PROGRAM 

1$ 33 INHIBIT ITERATIONS 

SICNT :; INCREMENT ITERATION COUNT 
STIMES,SICNT ;; CHECK THE NUMBER OF ITERATIONS MADE 
SOVER ;;BR IF MORE ITERATION REQUIRED 
#1,SI1CNT ;;REINITIALIZE THE ITERATION COUNTER 
SMXCNT,STIMES ;;SET NUMBER OF ITERATIONS TO DO 
STSTNM ;;COUNT TEST NUMBER 

STSTNM,STESTN ;;SET TEST NUMBER IN APT MAILBOX 

(SP) ,SLPADR ;;SAVE SCOPE LOOP ADDRESS 
STSTNM,@DISPLAY ;;DISPLAY TEST NUMBER 

SLPADR, (SP) ;;FUDGE RETURN ADDRESS 

LOCK ; RESET LOCK ON DATA. 
KMCSR,R1 ; R1 CONTAINS BASE KMC ADDRESS. 
406 


;;MAX. NUMBER OF ITERATIONS 


:CHECK FOR FREEZE ON CURRENT DATA 


PC, CKSWR ;CHECK FOR SOFT SwWR 


#SWO9,aSWR :1S8 SwWO9=1(SET)? 
1$ s IF NOT SET. 
LOCK 

1$ 

LOCK, (SP) 


;GOTO THE ADDRESS IN LOCK. 
;GO BACK. 


sTELETYPE OUTPUT ROUTINE 


-SBTTL TYPE ROUTINE 


SE RAAAEARERASAAEAEKARAKAAAEAAEKAKAAAEREREARAREAAREAAAAARARARAAAeAee 


;*ROUTINE TO TYPE ASCIZ MESSAGE. ye MUST TERMINATE WITH A O BYTE. 


st 
; *OR 
* 


:*THE ROUTINE WILL INSERT A NUMBE 
;*NOTE1: L CONT 


:*CALL: 
3*1) USING A TRAP INSTRUCTION 
TYPE »MESADR 


TYPE 


ME SADR 


BER OF NULL CHARACTERS AFTER A LINE FEED. 
AINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


;sMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


$IPFLG i318 THERE A TERMINAL? 
- :tHALT HERE IF NO TERMINAL 
RO, -(SP) SAVE RO 

a2(SP) ,RO "GET ADDRESS OF ASCIZ STRING 


aa re et ee 


CZKCF MACY11 30A(1052) O8-JUL-80 08:27 PAGE 40 
C2KCF.P11 O8-JUL=80 08:24 TYPE ROUTINE SEQ 0039 

1778 004434 122737 000001 001336 CMPB Ss MAP TEN, SENV i: RUNNING IN APT MODE 

1779 004442 001011 BNE 5 GO CHE CK FOR APT CONSOLE 

1780 004444 132737 000100 001337 BITB § #APTSPOOL,SENVM 18? POOL SAGE TO APT 

1781 004452 001405 BEQ 62$ CHECK FOR CONSOLE 

1782 004454 010037 004464 MOV RO,61$ Seto oP MESSAGE ADDRESS FOR APT 

1783 004460 004737 004704 JSR PC.SATY3 + SE ObL MESSAGE TO 

1784 004464 00 61$: WORD i sMESSAGE ADDRESS 

1785 004466 132737 000040 001337 62$:  BITB  #APTCSUP,SENVM CONSOLE SUPPRESSED 

1786 004474 001003 BNE MES, SKIP TYPE OUT 

1787 004476 112046 2$: MOVB  (RO)+,-(SP) : PUSH CHARACTER TO BE TYPED ONTO STACK 

1788 004500 001005 BNE 4$ ::BR IF IT ISN'T THE TERMINATOR 

1789 004502 005726 TST (SP)+ IF TERMINATOR POP IT OFF THE STACK 

1790 004504 012600 60$: MOV (SP)+,RO 

1791 004506 062716 000002 3$: ADD #2, (SP) * ADJUST RETURN PC 

1792 004512 000002 RTI * «RETURN 

1793 004514 122716 000011 4$: CMPB Ss @*HT,, (SP) : BRANCH IF <HT> 

1794 004520 001430 BEQ 

1795 004522 122716 000200 CMPB ss CRLF, (SP) : BRANCH IF NOT <CRLF> 

1796 004526 001006 BNE 

1797 0045°0 005726 TST (SP)+ ;:POP <CR><LF> EQUIV 

1798 004532. 104401 TYPE :; TYPE A CR AND LF 

1799 004534 001313 SCRLF 

1800 004536 105037 004672 CLRB $CHARCNT i: CLEAR CHARACTER COUNT 

1801 004542 000755 BR 2$ -GET NEXT CHARACTER 

1802 004544 004737 004626 5$: JSR PC ,STYPEC $60 TYPE THIS CHARACTER 

1803 004550 123726 001256 6$: CMPB = s«OSFILLC,(SP)+ ::1S IT TIME FOR FILLER CHARS.? 

1804 004554 0013 BNE ::1F NO GO GET NEXT CH 

1805 004556 013746 001254 MOV SNULL ,-(SP) ::GET # OF FILLER CHARS. “NEEDED 

1806 :;AND THE NULL CHAR. 

1807 004562 105366 000001 7$: DECB~—Ss«<A SP?) ::DOES A NULL NEED TO BE TYPED? 

1808 004566 002770 BLT 6$ ::BR IF NO=-GO POP THE NULL OFF OF STACK 

1809 004570 004737 004626 JSR PC ,STYPEC ::60 TYPE A NULL 

1810 004574 105337 004672 DECB S$ CHARCNT :;D0 NOT COUNT AS A COUNT 

181 004600 000770 BR 7$ sik 

1813 :HORIZONTAL TAB PROCESSOR 

1815 004602 112716 000040 8$: MOVB g (SP) > REPLACE TAB WITH SPACE 

1816 004606 737 004626 9$: JSR pc ft :;TYPE A SPACE 

1817 004612 132737 000007 004672 Bite so# *SCHARENT ;3BRANCH IF NOT AT 

1818 004620 001372 BNE : TOP 

1819 004622 005726 TST (SP)+ : POP SPACE OFF STACK 

1820 004624 000724 BR $ T NEXT CHARACTER 

1821 004626 105777 174416 STYPEC: TSTB asiPs WAIT UNTIL PRINTER IS READY 

1822 004632 100375 BPL STYPEC 

1823 004634 116677 000002 174410 MOVE 2(SP),aSTPB ::LOAD CHAR TO BE TYPED INTO DATA REG. 

1824 004642 122766 000015 000002 CMPB sR, 2 (SP) ::1S CHARACTER A CARRIAGE RETURN? 

1825 004650 001003 BNE 1 $3 F 

1 004652 105037 004672 CLRB  $CHARCNT ;3YES==CLEAR CHARACTER COUNT 

1 004656 000406 BR STYPEX sE 

1828 004660 122766 000012 000002 1$: CMPB es MF, 2( SP) 31 CHARACTER A LINE FEED? 

18¢9 004666 001402 STYPEX ; 3BRANCH IF YES 

1830 004670 105227 INCB ss (PC) + :COUNT THE CHARACTER 

1821 004672 000000 SCHARCNT: .WORD 0 «CHARACTER COUNT STORAGE 

1832 004674 000207 STYPEX: RTS PC 
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APT COMMUNICATIONS ROUTINE 


~SBTTL APT COMMUNICATIONS ROUTINE 


‘Wee DRBRARARALASAAARAASARARRSSSERRELERES ERLE RRL E SEER ESE ESE SEE ERE Cae 


$ATY1: 
SATY3: 


18: 


2$: 


12$: 


SMFLG: 
SLFLG: 
SFFLG: 


-EVEN 
APTSIZE=200 


APTENV=001 
APTSPOOL=100 





#1, SFFLG 
claee’ ee 


SATYC 

#1 ,SFFLG 
RO,-(SP) 
R1,-(SP) 

SMFLG 

#APTENV, SENV 
#APTSPOOL , SENVM 
3$ 


RO, SMSGAD 
(RO) + 

2$ 

SHSGAD ,RO 


R 
RO, SMSGLGT 
#4 , SMSGTYPE 


a4(SP),4$ 
#2,4(SP) 
177776, -(SP) 
PC $TYPE 

0 

SFFLG 

12$ 

SENV 

12 

SMSGTYPE 


a4(SP),SFATAL 
#2,4(SP) 









;;TO REPORT FATAL ERROR 
7310 TYPE A MESSAGE 


;+;10 ONLY REPORT FATAL ERROR 


;3PUSH RO ON STACK 
;;PUSH R1 ON STACK 
ee a A MESSAGE? 


IF NOT: 

: OPERATING UNDER APT? 

":SHOULD SPOOL MESSAGES? 
‘IF NOT: BR 


;;GET MESSAGE ADFR. 

;;BUMP FETURN ADDR. 
;;SEE IF DONE W/ LAST XMISSION? 
;IF NOT: WAIT 


::PUT ADDR IN MAILBOX 
:*FIND END OF MESSAGE 


;;SUB START OF MESSAGE 

:3GET MESSAGE LNGTH IN WORDS 
:;PUT LENGTH IN MAILBOX 
;;TELL APT TO TAKE MSG. 


::PUT MSG ADDR IN JSR LINKAGE 
->BUMP RETURN ADDRESS 

::PUSH 177776 ON STACK 

>:CALL TYPE MACRO 


;;SHOULD REPORT FATAL ERROR? 


i [RUNNING UNDER APT? 
:: FINISHED LAST MESSAGE? 
33 NOT: WAIT 


->BUMP RETURN ADDR. 
>:TELL APT TO TAKE ERROR 
i CLEAR FATAL FLAG 


RETURN 
:;MESSG. FLAG 
3 FLAG 
ssFATAL FLAG 


SEQ 0040 
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w2SS 


a ae ed ed ed ed ed ed ed ed ad ed ed ed ded 
SSIFAREG 


Sfs88? 


08-JUL-80 08:24 APT COMMUNICATIONS ROUTINE SEQ 0041 
000040 APTCSUP=040 
.SBTTL TTY INPUT ROUTINE 
: 2 'MABRABBAAASASAAASLEASRARERSRELEREE RE REESE RRR ESE SAREE ROSES RRSEESESAESLSESSAE SE 
-ENABL LSB 
.DSABL LSB 
MmABRBAABASALASAAAAAAARARLAERRARASLALERSRR AEE REE EAAASASLAEEASLLSASLLASCELASaSY 
:STHIS. ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
2 
:* RDCHR +: INPUT A SINGLE CHARACTER FROM THE TTY 
st RETURN HERE ::CHARACTER IS ON THE STACK 
:* ::WITH PARITY BIT STRIPPED OFF 
011646 SRDCHR: MOV (SP) ,-(SP) :;PUSH DOWN THE PC 
016666 000004 000002 MOV 4 (SP) .2USP) SAVE THE PS 
105777 174064 1$: STB ss. a$STK ;3WAIT FOR 
100375 BPL 18 °A CHARACTER 
117766 174060 000004 MOVB  a$TKB,4(SP) i READ THE T 
042766 177600 000004 BIC iL Ne 4(SP) 3:GET RID OF :— IF ANY 
026627 000004 000023 CMP 4(SP) #23 S IT A CONTROL-S? 
001013 BNE $ : {BRANCH IF NO 
105777 174032 2$: TSTB © a$STKS ;3WAIT FOR A CHARACTER 
100375 BPL 2$ LOOP UNTIL ITS THERE 
117746 174026 MOVB  a$TKB,-(SP) =:GET CHARACTER 
042716 177600 BIC eccirt (SP) >:MAKE IT 7-BIT ASCII 
022627 000021 CMP (SP) :3:1S IT A CONTROL-0Q? 
001366 BNE :31F NOT DISCARD IT 
000750 BR 1$ 33 RESUME 
026627 000004 000140 3s: CMP 4(SP),#140 71S IT UPPER CASE? 
002407 BLT >:BRANCH IF YES 
026627 000004 000175 CMP 4(SP) #175 3318 IT A SPECIAL CHAR? 
003003 BGT 4 3 H IF YES 
042766 000040 000004 BIC #40,4(SP) :: IT UPPER CASE 
00000 4$: RTI :GO BACK TO USE 
MTITITII TTL Litre 
ceTHIS | ROUTINE WILL INPUT A STRING FROM THE TTY 
Med : 
; RDLIN :: INPUT A STRING FROM THE TTY 
8 RETURN HERE = ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
3 >: TERMINATOR WILL BE A BYTE OF ALL O'S 
005264 010346 SRDLIN: MOV R3,-(SP) 3 sSAVE RS 
005266 005046 CLR ~(§P) ‘CLEAR THE RUBOUT KEY 
005270 012703 005520 1$: MOV #STTYIN,R3 :3GET ADDRESS 
005274 022703 005527 2$: CMP #STTYING?,R3 : BUF FER FULL? 
005 101456 BLOS }6s«4$ 3 F YES 
005302 104402 RDCHR :60 READ ONE CHARACTER FROM THE TTY 
005304 11261 MOVB  (SP)+,(R3) =:GET CHARACTER 
005306 122713 000177 10$: CMPB  #177,(R3) “sIS ITA 
005312 001022 BNE 5$ 33 
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MACY11 30A(1052) OB-JUL-80 08:27 PAGE 43 
P11 O8-JUL-80 08:24 TTY INPUT ROUTINE SEQ 0042 

005314 005716 TST (SP) ::1S THIS THE FIRST RUBOUT? 

005316 001007 BNE 6$ .3 FN 

005320 112737 000134 005516 MOVB #'\,9$ ::TYPE A BACK SLASH 

005326 104401 005516 TYPE, 

005332 012716 177777 MOV #-1, (SP) :;SET THE RUBOUT KEY 

005336 005303 6$: DEC R3 : BACKUP BY ON 

005340 020327 005520 CMP R3,#STTYIN "STACK EMPTY? 

005344 103434 BLO i ::BR IF YES 

005346 111337 005516 MOVB  (R3),9$% : SETUP TO TYPEOUT THE DELETED CHAR. 

005352 104401 005516 TYPE 9$ ::G0 TYPE 

005356 000746 BR 5§ *:GO0 READ ANOTHER CHAR. 

005360 005716 C$; TST (SP) ; ;RUBOUT KEY SET? 

005362 001406 BEQ 7$ : F NO 

005364 112737 000134 005516 MOVE #'\,9$ -: TYPE A BACK SLASH 

005372 104401 005516 TYPE ,9$ 

005376 005016 CLR (SP) : CLEAR THE RUBOUT KEY 

005400 122713 000025 7$: CMPB #25, (R3) ;1$ CHARACTER A CTRL U? 

005404 001003 BNE IF NO 

005406 104401 005527 TYPE SCNTLU : TYPE A CONTROL "'U"’ 

005412 000726 BR i$ -GO START OVER 

005414 122713 000022 8$: CMPB ss #22, (R3) =:1S$ CHARACTER A ‘*'*R’’? 

005420 001011 BNE 3$ ::BRANCH IF NO 

005422 105013 CLRB ss (3) :3CLEAR THE CHARACTER 

005424 104401 001313 TYPE  ,$CRLF YPE A CR" & "Ue 

005430 104401 005520 TYPE STTYIN «TYPE THE INPUT STRING 

005434 000717 BR 3$ :3G0_ PICKUP ANOTHER CHACTER 

005436 104401 001312 4$: TYPE  ,$QUES >: TYPE A * 

005442 000712 BR i :: CLEAR THE BUFFER AND LOOP 

005444 111337 005516 3$: MOVB  (R3),9$ >:ECHO THE CHARACTER 

005450 104401 005516 TYPE Os, 

005454 122723 000015 CMPB #15, (R3)+ :;CHECK FOR RETURN 

005460 001305 BNE P IF NOT RETURN 

005462 105063 177777 CLRB = 1 (R3) s3CLEAR RETURN (THE 15) 

005466 104401 001314 TYPE  .$LF :3 TYPE A LI 

005472 005726 TST (SP)+ >CLEAN RUBOUT KEY FROM THE STACK 

005474 012603 MOV (SP)+,R3 * RESTORE R3 

005476 011646 MOV (SP) ,=(SP) ;;ADJUST THE STACK AND PUT ADDRESS OF THE 

005500 016666 000004 000002 MOV 4 (SP) atsP) i FIRST ASCII CHARACTER ON IT 

005506 012766 005520 000004 MOV #STTYIN. 4 (SP) 

005514 000002 RTI s sRETURN 

005516 000 9$: .BYTE 0 >;STORAGE FOR ASCII CHAR. TO TYPE 

005517 000 .BYTE 0 33 NA 

005520 000097 STTYIN: .BLKB 7 ;;RESERVE 7 BYTES FOR TTY INPUT 

005527 136 006525 000012 S$CNTLU: .ASCIZ /*U/<15><12> =: CONTROL 'U'’ 


005534 043536 005015 000 $CNTLG: .ASCIZ /*G/<15><12> =: :CONTROL ''G'’ 
005541 015 051412 051127 $MSWR: .ASCIZ <15><12>/SWR = / 


005546 036440 
005552 020040 042516 020127 SMNEW: .ASCIZ / NEW = / 
005560 9 000 


~EVEN 
~SBTTL READ AN OCTAL NUMBER FROM THE TTY 


Eri T it it ii iii ii iii it iii titi iiitivitivitiiiiitiritiriiiriiiy 
‘THIS ye tee WILL - i AN OCTAL (ASCII) NUMBER FROM THE TTY AND 


: CHANGE IT TO BINARY 
*THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 


——— = 


E 4 | 
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> *OCTAL yeaa IF AN ILLEGAL CHARACTER IS READ A ''?'’ WILL BE TYPED 
Ph a BY A_ CARRIAGE aitte tien FEED. THE COMPLETE NUMBER MUST 
;* ony aes RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN. 


7*CALL 
;* RDOCT ;;READ AN OCTAL NUMBER 
;* RETURN HERE ;;LOW ORDER BITS ARE ON TOP OF THE STACK 
;* :;HIGH ORDER BITS ARE IN $HIOCT 
005564 011646 SRDOCT: MOV (SP) ,-(SP) Ri iy SPACE FOR THE 
005566 016666 000004 000002 MOV 4(SP),2(SP) :: INPUT NUMBER 
005574 010046 MOV RO,-(SP) :;PUSH RO ON STACK 
005576 010146 MOV R1,-(SP) :;PUSH R1 ON STACK 
005600 010246 MOV R2,-(SP) : PUSH R2 ON STACK 
005602 104403 1$: RDLIN ;:;READ AN ASCIZ LINE 
005604 012600 MOV (SP)+,RO + 3GET ADDRESS OF 1ST CHARACTER 
5606 010037 005712 MOV RO,5$ SAVE IT 
005612 005001 CLR R1 := CLEAR DATA WORD 
005614 005002 CLR R2 
005616 112046 23: MOVB (RO)+,-(SP) ;;PICKUP THIS CHARACTER 
005620 001420 BEQ 3$ 5s ZERO GET OUT 
005622 122716 000060 CMPB #°0, (SP) :;;MAKE SURE THIS CHARACTER 
005626 003026 BGT 4$ 3318S AN OCTAL DIGIT 
0056 122716 000067 CMPB #'7, (SP) 
005634 002423 BLT 4$ 
005636 00630 ASL kel e382 
005640 006102 ROL Re 
005642 006301 ASL R1 33%4 
5644 006102 ROL R2 
5646 006301 ASL R1 778 
005650 006102 ROL R2 
005652 042716 177770 BIC #*°C7, (SP) ;;STRIP THE ASCII JUNK 
005656 062601 ADD (SP)+,R1 :;ADD IN THIS DIGIT 
005660 000756 BR 2$ ;; LOOP 
005662 005726 3$: TST (SP)+ 3:CLEAN TERMINATOR FROM STACK 
005664 010166 000012 MOV R1,12(SP) s;SAVE THE RESULT 
005670 010237 005722 MOV R2,$HIOCT 
005674 012602 MOV (SP)+,R2 + sPOP STACK INTO R2 
005676 012601 MOV (S$P)+,R1 ;;POP STACK INTO R1 
5700 012600 MOV (SP)+.RO :: POP STACK INTO RO 
005702 000002 RTI 3 
005704 005726 4$: TST (SP)+ STLEAN. PARTIAL FROM STACK 
005706 105010 CLRB CRO) :;SET A TERMINATOR 
005710 10440 TYPE 3; TYPE UP THRU THE BAD CHAR. 
71 5$: ~WORD 0 
71 104401 001312 TYPE SQUES 23°°9"* “CR 8 LFS’ 
005720 000730 BR i$ =: TRY AGAIN 
005722 000000 SHIOCT: .WORD 0 :;HIGH ORDER BITS GO HERE 


: INPUT OCTAL NUMBER ROUTINE 


005724 010546 $INPUT: MOV RS,-(SP) : SAVE REGISTER RS. 

005726 016605 000002 MOV 2(§P),R5 : GET FIRST PARAMETER ADDRESS. 
005732 012537 005770 MOV (R5)+, WHAT : GET MESSAGE ADDRESS. 

005736 012537 006050 MOV (R5)+,LOLIM : GET LOW LIMIT FOR THE @ 
005742 012537 006052 MOV (R5)+,HILIM : GET HIGH LIMIT FOR THE @ 





MOPQMIM NPN 
SS 
SSLESF 
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MACY11 30A(1052) 
-P11 


08-JUL-80 08 

005746 012537 006054 

5752 112537 006056 
005756 112537 006057 
005762 010566 000002 
0057 104401 
005770 000000 
005772 104404 
005774 021637 006052 
006000 003003 
006002 021637 006050 
006006 002005 
006010 104401 001312 
006014 104401 001315 
006020 000762 
006022 015705 006054 
006026 011625 
006050 062716 000002 
006034 105337 006057 
006040 001372 
006042 005726 
006044 012605 
006046 000002 
006050 000000 
006052 000000 
006054 000000 
006056 000 
006057 000 
006060 013716 001442 
006064 005037 001444 
006070 02 
006072 016637 000004 
006100 010537 001274 
006104 010437 001272 
006110 010357 001270 
006114 010237 001266 
006120 010137 001264 
006124 010037 001262 
006130 000002 
006132 013700 001262 
006136 013701 001264 
006142 OTe On 1596 
006146 015703 001270 
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F 


_ ~— LC CCT EL ct tat 


4 


oe ee 6 ee —---- ——_ 


SEQ 0044 
GET ADDRESS OF INBUFFER 
oer LOWMASK BITS. 
GET # OF #'S TO BE GENERATED. 
SAVE THE RETURN ADDRESS. 
TYPE THE MESSAGE. 


READ OCTAL # FROM KEYBOARD. 
IS IT IN HIGH LIMIT? 

BRANCH IF NO. 

IS IT MORE THAN LOW LIMIT. 
BRANCH IF YES. 

TYPE <CR>,<LF> 

; GET BUFFER ADDRESS. 


; SAVE THE # IN RIGHT PLACE. 
: le a NUMBER . 


UNT 
; BRANCH IF NOT DONE. 
; POP THE STACK POINTER. 
; POP THE REG.5 


eee ee a 
en me rn ne a 


NEXT, (SP) 


; CRUNCH STACK WITH ADDRESSOF SCOPE CALL 
; RESET TIGHT LOOP ADDRESS 
; CHECK TO SEE IF OLD TEST GETS REPEATED 


;SAVE PC OF TEST THAT FAILED AND RO=R5 


sSAVE R7 (PC) 


: SAVE R5 


MOV (R5)+, WHERE 
MOVB (R5)+,LOBITS 
MOVB (R5)+,ADRCNT 
MOV RS,2(SP) 
INLP1: TYPE 
WHAT: -WORD 0 
RDOCT 
CMP (SP) ,HILIM 
BGT 
CMP (SP),LOLIM 
BGE 3$ 
23: TYPE »SQUES 
TYPE , SCRLF 
BR NLP 1 
3$: MOV WHERE ,R5 
4$: MOV (SP), (R5)+ 
ADD , (SP) 
DECB ADRCNT 
BNE 4$ 
TST (SP)+ 
MOV (SP)+,R5 
RTI 
LOLIM: .WORD 0 
HILIM: .WORD 0 
WHERE: .WORD 0 
LOBITS: .BYTE 0 
ADRCNT: .BYTE 0 
; ADVANCE TO NEXT TEST HANDLER 
ADVANCE : MOV 
CLR LOCK 
RTI 
.SAVOS: MOV 4(SP) ,SAVPC 
sSAVE RO-R5 
SVO5: MOV RS ,$SREGS 
MOV RG, SREG4 
MOV R3,SREG: 
MOV R2,$REG 
MOV R1,SREG1 
MOV RO, “ $REGO 
RTI 
sRESTORE RO-R5 
-RESOS: MOV SREGO, 4 
MOV SREG1,R 
MOV SREG2, t 
MOV SREG ‘R 
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ee et ee a Te 
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MMIII NIN NIPINIPIAIPI NI PIPININIMI NIN PIMPIN PRON fr 


o 
oO 


G 4 — 
MACY11 30A(1052)_ QB-JUL-80 08:27 PAGE 46 


1 08-JUL-80 08:24 READ AN OCTAL NUMBER FROM THE TTY SE 0045 
006152 013704 001272 MOV SREG4 RG sRESTORE R4 
006156 013705 001274 MOV SREGS.RS “RESTORE R5 
006162 000002 RTI * LEAVE 
: :CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER 
006164 104401 001313 "CONVR: TYPE  ,$CRLF 
006170 010046 "CNVRT: MOV RO,=(SP) 
006172 010146 MOV R1,-(SP) 
006174 010346 MOV R3,-(SP) 
006176 010446 MOV R4,=(SP) 
006200 010546 MOV R5.-(SP) 
006202 017601 000012 MOV a12(SP),R1 
006266 062766 000002 000012 ADD #2,12(SP) 
006214 012137 006406 MOV (Ri) +, WRDCNT 
20 112137 006410 1$: MOVB  (R1)+,.CHRCNT 
24 112137 006411 MOVB (R1)+.SPACNT 
30 013137 006412 MOV a(R1)+,BINWRD 
006234 122737 000003 006410 CMPB ss #3, CHRCNT 
006242 001003 BNE 2$ 
006244 042737 177400 006412 BIC #177400, BINWRD 
006252 013704 006412 2$: MOV BINWRD,R4 
006256 113705 006410 MOVE = CHRCNT,RS 
006262 012700 011234 MOV #TEMP RO 
006266 010403 3$: MOV R4_R3 
Soea7s BES7Os 00000 Bic ANT T7O.AS 
$e S00 110320 MOVB 4's Tt 
006302 000241 CLC 
006304 006004 ROR RG 
006306 000241 CLC 
006310 006004 ROR R4 
006312 000241 CLC 
006314 006004 ROR R4 
006316 005305 DEC R5 
001362 BNE 3$ 
006322 012793 011276 MOV BMDATA,R3 
006326 114023 4$: MOVB  =(RO),(R3)+¢ 
006330 105337 006410 DECB = CHRCNT 
006334 001374 BNE 
006356 105737 006411 TSTB = SPACNT 
342 001405 BEG 6$ 
006344 112723 0 5$: MOVB #040,(R3)+ 
006350 105337 006411 DECB = SPACNT 
006354 001375 BNE 
006356 105013 6$: CLRB ss. (R3) 
006 104401 011276 TYPE  ,MDATA 
006 005337 DEC WROCNT 
0 001313 BNE 1$ 
006372 012605 MOV ($P)+,R5 
006374 012604 MOV (SP) +,R4 
006376 012603 MOV (SP)+,R3 
006400 012601 MOV (SP)+,R1 
006402 012600 MOV (SP)+,RO 
006404 000002 RTI 


— 
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006406 000000 varer: 0 
006410 ere sy CHRCNT: 0 
006411 tel =CHRCNT+1 

006412 000000 BINWRD: 0 
; TRAP DISPATCH SERVICE 
;ARGUMENT OF TRAP IS EXTRACTED 
AND USED AS OFFSET TO OBTAIN POINTER 
>TO SELECTED SUBROUTINE 


-SBTTL TRAP DECODER 


‘PADDR RERR EAR R RRR RRRRRRRRRRRRRSALELER EERE ESSE SEE CREE ESSE EEE EEE ES 
SeTHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘TRAP’ INSTRUCTION 
:*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 

:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:#G0 TO THAT ROUTINE. 


006414 010046 STRAP: MOV RO, = (SP) + SAVE RO | 
006416 016600 000002 MOV 2(§P) RO :3GET TRAP ADDRESS 
006422 005740 TST =(RO) >BACKUP BY 2 
006424 111000 MOVB (RO) ,RO :3GET RIGHT BYTE OF TRAP 
006426 006300 ASL POSITION FOR INDEXING 
006430 016000 006450 MOV STRPAD(RO).RO =: INDEX TO TABLE 
006434 000200 RTS RO *=GO0 TO ROUTINE 

::THIS IS USE TO HANDLE THE “'GETPRI'’ MACRO 
006436 011646 STRAP2: MOV (SP) ,-(SP) ::MOVE THE PC DOWN 
006440 016666 000004 000002 MOV 4(SP),2(SP) >:MOVE THE PSW DOWN 
006446 000002 RTI >:RESTORE THE PSW 

.SBTTL TRAP TABLE 

:*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 

:*BY THE "'TRAP’’ INSTRUCTION. 

; ROUT INE 
006450 006436 $TRPAD: .WORD $TRAP2 
006452 004414 STYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEQUT ROUTINE 
006454 005144 SRDCHR ;:CALL=RDCHR TRAP*2(104602) TTY TYPEIN CHARACTER ROUTINE 
006456 005264 SRDLIN ::CALL=RDLIN TRAP+3(104403) TTY TYPEIN STRING ROUT INE 
006460 005564 SRDOCT ::CALL= TRAP+4(104404) READ AN OCTAL NUMBER FROM T 
006462 004364 -SCOP1 ;;CALL=SCOP1 TRAP+5 (104405) OL CURRENT BATA. HANDLER 
006464 006072 .SAVOS ;;CALL=SAVO TRAP +6 (1 406) CALL TO REGISTER SAVE ROUTINE 
006466 006132 -RESOS ::CALL=RESOS § TRAP#7(104407) CALL TO REGISTER RESTORE ROUTINE 
006470 007362 -MSTCLR ZeCALL=MSTCLR © TRAP#10(104410) CALL TO ISSUE A MASTER CLEAR 
006472 007332 “DELAY :;CALL=DELAY TRAP+11(104411) CALL TO 
006474 007400 *RORCLK :FEALL=RORCLK TRAP+12(104412) CALL TO CLOCK ROM 
906476 007446 " DATACLK L=DATACLK TRAP+13(104413) CALL TO CLOCK DATA 
006500 007512 TIMER CALLETEWER TRAP+14(104414) CALL TO DELAY A CLOCK TICK 
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006502 005724 
006504 006164 
006506 006170 
006510 006060 
006512 004737 011340 
006516 032777 010000 
006524 1406 
006526 105777 172516 
006532 
006554 112777 000207 
006542 032777 020000 
006550 1107 
006552 021637 001216 
006556 1404 
006560 011637 001216 
006564 105037 001203 
006570 104406 
006572 071605 
006574 162705 000002 
006600 011504 
006602 1104357 001214 
poeete 006304 

10 061504 
006612 006304 
006614 042704 177001 
006620 062704 001512 
006624 012437 006740 
006630 012437 006752 
006634 011437 006764 
006640 105737 001203 
006644 00140 
006646 005737 006764 
006652 00104 
006654 104401 001313 
006660 104401 001313 

005737 001444 

006670 001402 
006672 104401 010015 
006676 Hb ved 010005 
006702 104417 007120 
006706 104401 010072 
006712 104417 007112 
096716 104401 601313 
peers 112737 177777 
0067350 005737 006740 
psisthy 001402 
0067 104401 
006740 000000 
006742 
006742 005737 006752 


001203 


O8-JUL-80 08:27 PAGE 
AP TAB 


TR 
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SEQ 0047 


SINPUT ;;CALL=INPUT TRAP+15(104415) CALL TC OCTAL # INPUT ROUTINE 
-CONVRT ;;CALL=CONVRT TRAP*16(104416) CALL TO ...... 

~CNVRT ;;CALL=CNVRT TRAP#+17(104417) CALL TO =. caaeee 

ADVANCE 7;CALL=ADVANCE TRAP*20(104420) CALL TO ADVANCE TO NEXT TEST 


© SSS SS SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSBSSESSSSSSEESESZSESEEEEEEEES 
ett t eee DDR RRR RRR RRR RRRRRRREREE SERRE REEL ELE RRR E EE EERSTE EE 


;ERROR HANDLER 


SERROR: 


XBX: 


1$: 


TYPMSG: 
T 


1$: 


ERRMSG: 
WRKO.FM: 





PC,CKSWR 
#SW12,aSWR 
BX 


x 
asTPs 


XBX 
#207 ,a$TPB 
#SW13,aSWR 


HALTS 
(SP) ,SERRPC 
(SP) ,SERRPC 
SERFLG 
(SP),R5 
#2,R5 
(R5) RG 
R4,SITEMB 
(RS) RG 

RG 
#177001, R4 
#SERRTB RG 
(R4) +, ERRMSG 
(R4)+,DATAHD 
(R4) ,DATABP 
SERF 


WRKO.FM 


DATAHD 


; CHECK 
;BELL O 
BR IF oe oeel 
sDON'T WAIT IF TTY NOT READY. 
PUSH A THE TTY. 
sDELETE ERROR PRINT OUT? 


} 
| 
| 
FOR SOFT SWR 
NE 
:BR IF NO PRINT OUT WANTED 

:WAS | 


RROR? 


THIS ERROR FOUND LAST TIME? 


; YES 
sRECORD BEING HERE 

;PREPARE HEADER 

;SAVE ALL PROC REGISTERS 

;GET THE PC OF ERROR 

;GET ADDRESS OF TRAP CALL 

;GET ERROR INSTRUCTION 

: oe ERROR # FOR APT HANDLING 


:;GET DATA TABLE 
; TYPE HEADREER 


sBR IF YES 
:DOES DATA TABLE EXIST? 
“BR IF YES 


awn 
< 

exe 
m 

> “U- 
om 


IV 


R/LF 
HEADER UNLESS NO DATA TABLE. 
E AN ERROR MESSAGE? 


2255 
<xrwW 
wv 
FT ome mg 

=z5 

m 
z2™ Se eee 
o 


ERROR MESSAGE 
“DATA HEADER? 


LL ET LT TN eS ee ee nm 2 
ser 


ony 
NN 
aK 


MMIMIMIPOPONMoToPo ror 
MPIMMM PPP rr 
SSBLEARAS 


Mmrorr 
Rg 


000 
Wn 
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001402 
104401 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
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006764 


000001 
001214 
004714 
004070 
172206 


000002 
001212 
000400 


002000 


001442 
001200 
172076 


002 


002 


007316 
000340 





001336 
007012 


000042 


172160 
172150 
001206 


000024 
000026 


000024 


TABLE 

BEQ TYPDAT >BR_ IF NO 

TYPE ; TYPE 
DATAHD: 0 ; DATA HEADER 
TYPDAT: TST DATABP ;DATA TABLE? 

EQ RESREG ;BR IF NO. 

CONVRT ; SHOW 
DATABP: 0 DATA TABLE 
RESREG: RESOS5 RESTORE PROC REGISTERS 
HALTS: CMP #APTENV, SENV ‘ IS APT RUNNING ? 

BNE $ ‘ Pay APT ont IF NOT. 

MOVB SITEMB ,6% + COPY ERROR # 

JSR PC, SATY4 ; CALL APT SERVICES. 
6$: -WORD 0 ; ERROR # GOES HERE. 
9$: BR 9$ ; LOCK HERE. 
3$: ad ene Behe ;1F ACT~11 AUTOMATIC MODE, HALT!! 

TST QSWR ;HALT ON ERROR? 

BPL EXITER ;BR IF NO HALT ON ERROR 
1$: PUSHRO :SAVE RO 

MOV 2(SP),RO ;SHOW ERROR PC IN DATA LIGHTS 

sh iy 


P :GET RO 
EXITER: INC ;UPDATE ERROR COUNT 


SERTTL 

BIT #SWO8, aSWR :GOTO TOP OF TEST? 

BNE 1 :BR IF YES 

BIT #SW10,aSWR :GOTO NEXT TEST? 

BEQ 2$ “BR IF 

MOV NEXT, SLPADR :SET FOR pNEXT TEST 
1$: MOV #STACK, SP T 

JMP aSLPADR ‘GOTO SPECIFIED TEST 
2$: RTI *$LPADR 
ERTABO: 1 

.BYTE 6,2 

SAVPC 
XTSTN: 17 

BYTE 3,2 


STSTNM 
ENTER HERE ON POWER FAILURE 


° (Snr we SS OS TP OP GF oe Re Oh an. Be SL GF Om os ay OD On GO 


-SBTTL POWER DOWN AND UP ROUTINES 


meARASSALASRE SERA AAAS ALESAARAR ALE RARE AE EERE ALAR SRR EE RAR SRE RASS SG 


R DOWN ROUT INE 
iPower ralb ae UP, @#PWRVEC ;:SET FOR FAST UP 
* oy aePuRVECt2 BRIO :7 
MOV 0 -teP 3 PUSH H RO ON STACK 
Ro tep *:PUSH R1 ON STACK 
R2,-(SP) ::PUSH R2 ON STACK 
R3,-(SP) *:PUSH R3 ON STACK 
R4,-(S$ PUSH R4& ON STACK 
5. <(S $3 H RS ON STACK 
aur = (SP) H asuR ON STACK 


SP, SSAVRO : SAVE 
sepSSAURG es ::SET UP VECTOR 








SEQ 0048 


eS scerceneteanecantnecce cata TLL LL LL LI -- ~ 
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“ae 007176 000776 BR .°2 : HANG UP 

2340 Fines > saa aaa aiallaialailalalatailaiaiaiciiaiainiini 

2341 POWER UP ROUTINE 

5242 007200 012737 007316 000024 $PWRUP: MoV #SILLUP A#PWRVEC ;;SET FOR FAST DOWN 

2343 007206 013706 007322 SSAVR6,SP SP 

2344 007212 005037 007322 CLR SSAVR StWAIT LOOP FOR THE TTY 

2345 007216 005237 007322 1$: INC SSAVRO *:WAIT FOR THE INC 

2346 007222 001375 BNE 1$ *:OF WORD 

2347 007224 104401 007562 TYPE /MPFAIL ; 

2348 007230 104417 007324 CNVRT .PFTA : 

2349 007234 105037 001203 CLRB  =- SERFLG “CLEAR ERROR FLAG. 

2350 007240 005037 001216 CLR SERRPC ; CLEAR LAST ERROR PC 

2351 007244 013701 002066 MOV KMCSR,R1 : RESTORE DEVICE ADDRESS. 

2352 007250 005011 CLR (R1) ; CLEAR THE CSR. 

2353 007252 104410 MSTCLR 

2354 007254 012677 171760 MOV (SP)+,aSWR ::POP STACK INTO @SWR 

2355 007260 012605 MOV P)+,R5 ::POP STACK INTO R5 

2356 007262 012604 MOV (SP)+,R4 ::POP STACK INTO R4 

2357 007264 012603 MOV (SP)+,R3 ::POP STACK INTO R3 

2358 007266 012602 MOV (SP)+,R2 ::POP STACK INTO R2 

2359 007270 012601 MOV (SP)+,R1 ::POP STACK INTO R1 

2360 007272 012600 MOV (SP)+,RO =:P STACK INTO RO 

2361 007274 012737 007126 000024 MOV #SPWRON, a#PWRVEC 3zSET UP THE POWER DOWN VECTOR 

2362 007302 012737 000340 000026 MOV #340, a#PWRVEC+2 ;:PRIO:7 

2363 007310 104401 TYPE >:REPORT THE POWER FAILURE 

2364 007312 007562 SPWRMG: WORD MPFAIL :;POWER FAIL MESSAGE POINTER 

$302 007316 0 SILLUP: HALT :;THE POWER UP SEQUENCE WAS STARTED 

2367 007320 000776 BR .-2 >; BEFORE THE POWER DOWN WAS COMPLETE 

2368 007322 SSAVR6: 0 *:PUT THE SP HERE 

2370 007324 PFTAB: 1 

2371 007326 003 002 BYTE 2 

2372 7330 001202 STSTNM 

2374 7332 DELAY: 

2375 007332 012777 000020 172534 V #20, aKMP04 

2376 007340 104412 OMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

2377 007342 «121111 121111 >POKE CLOCK DELAY BIT 

2378 007344 1$: 

2379 007344 104412 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

2380 007346 121224 121224 “PORTS 1BuUS*11 

2381 007350 032777 000020 172516 BIT #B1T4,aKMPO4  ;:1S CLOCK BIT SET? 

oaae 007356 001772 BEQ 1$ “BR IF 

Saar 7360 2 RTI 

2385 007362 .MSTCLR: 

2386 007362 152777 0001 172500 BISB #B116,a “SET MASTER CLEAR 

2387 007370 142777 000300 172472 BICB #BIT6'BIT7,aKMCSRH ;CLEAR MASTER CLEAR AND RUN 

2358 007376 RTI : RETURN 

2390 007400 -ROMCLK: 

2391 007400 1 53777 2 172462 BISB #BIT1,@KMCSRH ;SET ROMI 

2392 007406 01 172464 MOV a(SP)+, ‘LOAD INSTRUCTION IN SEL6 

2393 007412 062746 02 ADD #2,-(SP) sADJUST STACK 


ee ee 


ye eee 
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032777 
001401 


013637 
062746 


104412 
021364 
032777 
001772 


000100 


000003 
000007 


011234 
000002 


000020 
172376 
00 


000020 
011234 
011234 
000002 
0000602 


000002 
011234 


051127 
042116 
000 


‘ 
wos 


oO Oooo 
NnNo-mM 
OwUonoooe 


171614 


172340 


172324 


1$: 


~DATACLK: 
M 


18: 


3$: 


TIMER: 


1$: 


2$: 





#$W06,aSuR {HALT IF Sw06 =1 

1$ “BR IF SW06 = 

‘HALT BEFORE CLOCKING INSTRUCTION 

#BIT1'BI 10 ak @KMCSRH ;CLOCK INSTRUCTION 
#BIT2'BIT1'BITO,@KMCSRH ;CLEAR ROMO, ROMI, 
a(SP)+, TEMP sPUT TICK COUNT IN TEMP 

#2,-(SP) “ADJUST STACK 
WBIT4,@KMCSRH ;:SET STEP LU 
@KMCSR,@KMCSR  :WASTE TIME 


L 4 


#B1T4, aKMCSRH 
TEMP 


a(SP)+, TEMP 
#2,-(SP) 


#2,aKMPO04 
1$ 


EE eh sssnsssstnnguss hes = 
- a 


* CLEAR STEP LU 


;MOVE COUNT TO TEMP 
ADJUST STACK 


sNEXT WORD Sia ROMCLK PC=5304 


;PORT4 IBUS* 
sIS P 


GA CLOCK BIT CLEAR? 
-BR IF YES 


NEXT WORD IS ae ROMCLK PC=5304 


:PORT4 IBUS* 
715 ron CLOCK BIT SET? 
“BR IF YES 


T 


;DEC COUN 
:BR IF NOT DONE 
RETURN 


O00>/PWR FAILED. RESTART AT TEST / 
bh PASS CZKCF / 


* 
<200>/SET SWITCH REG TO KMC11'S DESIRED ACTIVE./ 


< 
< 
< >/NO_DEVICES NP bata / 
< 
/ 


MAP OF KMCTI STATUS/ 


>/ 

>/WOW MANY KMC11°S TO BE TESTED?/ 
>/CSR_ ADDRESS?/ 
>/VECTOR ADDRESS?/ 


SEQ 0050 


MMMNP Tn 


WMMIPoPoPononofnonorne 
ee ee we 


o 


PI 


SOO SCOOOOOO — 
— — — ee ee ed ae? ed ed dD 
~ oO 
=> SISGEESER 
FOAWNANOP 
Ar -=wWr Oo 


NSWUIO 
Vilf~ 


—_—d Dd Dd 
nN = 
& 


oOQooCcooooCoOoOOoOoO 
wad ad bad adadad dadad 
WUINRIRINITRD 3 
MOK LNIOALVO 


011234 
011276 


eFRERVSO 


ee ek ed ed ed ed ed 
Ww ™ 
NRNOSMG & 
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001075 
sate 


104401 


oOo 
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rt wee 
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OOooo 
VINO We rorornorn 
ooo —-OC—WwUwnNnN 


000176 
000001 
000007 
000207 


177777 


177777 
005541 


005552 


ooo OOOOCOCOCOOO 
EP NOLEN 
—— st OS RONININY 
VVvIw ——§—§O0O———i 
—O—- COL ———nw 
MViVvIiVy VIANOOoO-——© 


001240 
001336 
167660 
167650 


011544 


CKSWR: 


1$: 


CKSWR1: 


CKSWR2: 
SW 
CKSWR3: TYPE 


sss eee 


SEQ 0051 


, IF M8201 TYPE ‘1'’, IF M8202 TYP 
O>/SWITCH PAC#1 NOD CMP LINE #)?/ 

O>/SWITCH PACA? (BM873 BOOT ADD) ?/ 
>/1$ THE LOOP RE SELECTED/ ON?/ 


TED/ 
>/WHICH MODEM TYPE, TYPE ''D'’ FOR KMC11-DA (RS232C),OR/ 
>/TYPE ''F'' FOR EMC TI OFA (v.35) 2 / 


><200>/KMC11 AT NONSTANDARD ADDRESS PC: / 
aa aes FOUND / 


ZOO OOOO 


sBUFFERS FOR INPUT-OUTPUT 


ROUTINE USED TO CHANGE SOFTWARE SWITCH 
sREGISTER USING THE CONSOLE TERMINAL 


1 ie Se OD Se WEE Re Gey Sk We OS ERY cee em Ge Sie Re ee mY TE om ee TR, Be ED Pn a ee 


#SUREG, SUR :IS THE SOFT SWR BEING USED? 
CKSWR :BR IF _NO 
#1, SENV : 1S IT RUNNING UNDER APT? 
KSWRS : EXIT IF Y 
#7 ,a8TKB sMAS CTRL G TYPED? (7 BIT ASCII) 
#207 ,aSTKB sWAS CTRL G TYPED? (8 BIT ASCII) 
CKSWRS “BR IF NO 
R2,-(SP) “STORE R 
R3,-(SP) sSTORE R 
R4.=(SP) "STORE R4 
#-1, SWFLG “SET SOFT TYPE OUT FLAG 
:CLEAR NEW SWR CONTENTS 
-1,R4 : SET FLAG. TO, ALL ONES 
SMSUR : TYPE 
: TYPE ont PRESENT CONTENTS 
:0F RUA SWITCH REGISTER 
, SMNEW :TYPE ‘NEW? 


mt = ee ee eee 
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P11 OB=JUL-80 08:24 POWER DOWN AND UP ROUTINES SEQ 0052 
011436 004737 011546 CKSWR4: JSR PC, INCHAR :GET RESPONSE 
011442 022703 000015 CMP #15,R3 “WAS 17 A CR? 
011446 001424 BEQ 5$ ;BR IF YES 
011450 022703 000012 CMP #12,R3 WAS IT A LF? 
011454 001416 REQ 4$ BR IF Y 
011456 022703 000025 CMP #25,R3 “WAS IT CTRL U2 
011462 001754 BEQ CKSWR1 “BR IF YES(START OVER) 
011464 022703 000007 CMP #7,R3 :1F CNTL G GET NEXT CHAR 
011470 001762 BEQ CKSWR4 
011472 005004 CLR R4 ;1T MUST BE A DIGIT SO CLR FLAG 
011474 042703 177770 BIC #177770,R3 “ONLY 0-7 ARE LEGAL SO MASK OFF BITS 
011500 006302 ASL R2 *SHIFT R2 3 TIMES 
011502 006302 ASL R2 
011504 006302 ASL R2 
011506 050302 BIS R3,R2 :ADD LAST DIGIT 
011510 000752 BR CKSWR4 “GET NEXT CHARACTER 
011512 012766 002402 000006 4$: MOV #.START,6(SP) [LF WAS TYPED $0 GO TO START 
011520 005704 5$: TST Ré :1$ FLAG CLEAR? 
011522 001002 BNE 6$ :IF NOT DON'T CHANGE SOFT SwR 
011524 010277 167510 MOV R2,aSWR -IF YES THEN WRITE NEW CONTENTS TO SOFT SwR 
011530 005037 011544 6$: CLR SWFELG “CLEAR TYPEOUT FLAG 
011534 012604 MOV tsP)e RG *RESTORE RG 
011536 012 MOV (SP)+.R3 *RESTORE R3 
011540 012602 MOV (SP)+.R2 *RESTORE R2 
011542 000 CKSWRS: RTS PC *RETURN 
011544 000000 SWFLG: 0 
011546 105777 167472 INCHAR: TSTB  aSTKS 
011552 100375 BPL ob 
011554 017703 167466 MOV asTKB.R3 
011560 105777 167464 STB =. aSTP 
011564 100375 BPL a” 
011566 010377 167460 MOV R3,a $TPB 
011572 042703 000200 BIC #BIT7,R3 
011576 000207 RTS PC 
011600 000001 SOFTSW: 1 
011602 006 002 .BYTE 6,2 
011604 000176 SWREG 


enna e eee eee a SS is ists Sse ss r>-SSS ee 
- — er ee a St = rset 


B 5 
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2512 

2513 : 

2514 ;ROUTINE USED TO "'CYCLE'’ THROUGH UP TO 16 KMC11'S 

2515 THIS ROUTINE SETS UP THE CONTROL ADDRESS FOR THE DIAGNOSTIC 
2516 ;AND RUNS THE SPECIFIED KMC11'S. THIS ROUTINE *MUST* 

2517 ;BE RUN FIRST BEFORE ENTERING THE DIAGNOSTIC FOR THE 

2518 ;SETUP NECESSARY. 






















2519 : 
2520 
2521 011606 005737 001470 CYCLE: KMACTV ;ARE ANY Stl TO BE TESTED? 
2522 011612 001004 1 “BR IF 
2523 011614 104401 010731 »NOACT :NO KMC11°S SELECTED!! 
2524 011620 “STOP THE SHOW. 
2525 011622 000776 .=2 :DISQUALIFY CONT. 
2526 011624 000241 1$: “CLEAR PROC. CARRY BIT 
2527 ABP 006137 001500 RUN sUPDATE POINTER 
2528 011632 005537 001500 RUN :CATCH CARRY FROM RUN 
2529 011636 062737 000004 001504 #4 “ sUPDATE POINTER 
2530 011644 062737 000010 001502 #10, CRE ,UPDATE ADDRESS POINTER. 
2531 011652 022737 002300 001502 #KM. *HAP?200, CREAM 
2532 011660 001006 2$ :KEEP GOING; NOT ALL TESTED FOR. 
2533 011662 012737 002100 001502 #KM. MAP, CREAM *RESET ADDRESS POINTER 
2534 011670 012737 002302 001504 #CNT.MAP MILK *RESET PASS COUNT POINTER 
2535 011676 033737 001500 001470 2$: RUN, KMACTV :IS THIS ONE ACTIVE? 
2536 011704 001747 1$ “BR IF NO 
2537 011706 013700 001502 CREAM,RO sGET ADDRESS POINTER 
2538 011712 013702 MILK,R2 >GET PASS COUNT POINTER 
$272 O17 38 AE $ (RO)+,KMCSR “LOAD SYSTEM CTRL. REG 
$40 011722 011037 002056 (RO) ,.KMRVEC “LOAD VECTOR 
2541 011726 042737 177000 002056 #177000, KMRVEC :CLEAR UNWANTED BITS 
2542 011734 012037 002050 (RO)+,STAT *LOAD STATI 
2543 011740 012037 002052 (RO)+,STAT ‘LOAD STAT2 
2544 011744 012037 002054 (RO)+, STAT “LOAD STAT3 
2545 011750 012237 001324 (R2)+,$PASS “LOAD PASS COUNT 
2546 011754 012257 001212 (R2)+,SERTTL | :LOAD ERROR COUNT 
2547 011760 012700 #2, “SAVE CORE THIS WAY! 
2548 011764 013737 002 002070 KMCSR,KMCSRH 
2549 011772 005237 002070 H 
2550 011776 013737 002070 002072 KMCSRH,KMCTL 
2551 012004 005257 002072 KMCTL 
2552 012010 013737 002072 002074 KMCTL, KMPO4 
2553 012016 37 002074 RO, KMPO4 
2554 012022 013737 002074 002076 KMPOG , KMPO6 
2555 6120 002076 RO, KMPO6 
2557 012034 013737 002056 002060 KARVEC »KARLVL “PTY LVL 
2558 012042 37 002060 ; 
2559 012046 013737 002060 002062 RRALVLCKATVEC "TX VEC 
2560 012054 37 002062 RO, KMTV : 
2561 012060 013737 002062 002064 RRTVEC. KMTLVL =: TX LVL 
2568 012066 37 002 RO, KMTLVL 
2564 012072 032737 000002 001446 #SWO1,STRTSW  ;1S TEST NO. SELECTED 
2565 012100 001447 7$ “BR IF NO 
$566 012102 4$: 
567 012102 005737 000042 a#42 :RUNNING IN AUTO MODE? 
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_ 
PIPYMIPMOPMIPOPIPOPoPorore 


FD ce ce ee ee ee ed ed ed ed ed ed 


at 
oF 


SNENONGNOS FONG ROSE 


LARRY —_ —) od oO 
NMOS onroRrny 


VSreEE 


wESoeSter 


me eh a ee eh ed rd 
Orn 


PPMIPRIRIPIPOMPONIPIMPOPEPO POPUP 


— a 


Ww 


ooo 
=A) — 
IN iW POPRIPD 


ssssesesesesss 


001313 


014140 


001202 
001202 


027716 
001312 
014140 


002066 
166750 


002100 
002300 
001472 
002100 
001470 
000001 
012740 
000001 


000002 
000004 


001446 


001206 


001446 


001306 


POWER DOWN AND UP ROUTINES 


a) 


SEQ 0054 
;BR IF YES 


CMP FIRST WORD TO 12737 


;BR IF NOT SAME 
;DOES STSTNM MATCH? 


7BR IF NO 

:1S LAST WORD OK? 

;BR IF NO 

IT IS A LEGAL TEST SO DO IT 


:POP RO 

;AT END YET? 
: F NO 

sYES ILLEGAL TEST NO. 

; TRY AGAIN 

;PREPARE SLPADR ADDRESS 
:R1 = BASE KMC11 ADDRESS 
3GO START TESTING. 


SED 10 “AUTO SIZE"' THE KMC11 
THE CSR MAY BE ANY WHERE IN THE FLOATING 


ADDRESS RANGE (160000: 164000) 


Y WHERE IN THE 


AND THE VECTOR MAY BE AN 
FLOATING VECTOR RANGE (300:770) 


BNE 7$ 
TYPE »SCRLF 
INPUT 
nan 
1000 
STSTNM 
BYTE 0 
-BYTE 1 
MOV #TST1,R0 
5$: CMP (PC)+, (RO) 
MOV (PC)+,a(PC)+ 
BNE 6 
CMP STSTNM,2(RO) 
BNE 
CMP #STSTNM,4(RO) 
BNE 
MOV RO, SLPADR 
TYPE ° 
BIC #SWO1,STRTSW 
BR 8$ 
6$: TST (RO)+ 
CMP RO, #TLAST+10 
BNE 5$ 
TYPE SQUES 
BR 4$ 
7$: MOV #TST1,SLPADR 
8$: MOV KMCSR,R1 
JMP @$SLPADR 
sROUTINE U 
>CSR AND VE 
sNOTE: 
AUTO.SIZE: 
RESET 
CSRMAP: MOV #KM.MAP,R2 
1$: CLR (R2)+ 
CMP #KR.END,R2 
BNE 1$ 
CLR KMNUM 
MOV #KR.MAP,R2 
CLR KMACTV 
BIT #Sw00,STRTSW 
BNE +6 
JMP 7$ 
V #1,STMP4 
INPUT 
NUM 


; INSURE A BUS INIT. 

;LOAD MAP POINTER. 

;ZERO ENTIRE MAP 

;ALL DONE? 

;BR IF NO 

sSET OCTAL NUMBER OF KMC11'S TO OG 

>R2 POINTS TO KMC MAP 

sCLEAR ACTIVE 

s QUESTIONS? 

:;BR IF YES 
IF NO EH 


:iF QUESTIONS 
;START WITH 1 


a 
ae 


PI 


—— 


sSsssessesssssssesececococoo 
3s Wululiw WAUIWI ww 
SESSRAAAE FERRO 
o--0 
—> 


Wwiw 
Sn 
Nuno 


—* 


ooooo ooooo 
Mmrnrnrrnrn 


PPP rw 


FSSERALR 
3 Wt en 
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001302 001472 
001313 


001306 


001304 


001304 
013664 
000024 
000027 
000011 


170777 


013664 
000021 


000022 
000116 


SN 
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10$: 


D 


STMP2,KMNUM 
» SCRLF 


STMP4 


1 
STMP3,(R2)+ 


0 

1 

STMP3, (R2) 
PC, INTTY 
#24,R3 
50$ 
#27,R3 
50$ 
#11,R4 

R3 

Ra 
#170777,R3 
R3,(R2) 


10$ 


5 


ST eS CE tt ttt ttn 


SEQ 0055 


;KMNUM = HOW MANY 


; TYPE WHICH KMC IS BEING DONE 
;STMP4 IS WHICH KMC 


>STORE CSR IN MAP 


:STORE VECTOR IN MAP 


ASK WHAT BR LEVEL 
:GET RESPONSE 


“BR IF LESS THAN 4 
BR IF GREATER THAN 7 


E 
BIC UNWANTED BiTS 
:PUT BR LEVEL IN STATUS MAP 
; CONT INUE 


RESPONSE IS OUT OF LIMITS 
: TRY AGAIN 


SASK WHICH LINE UNIT 
:GE7, REPLY 


a” sah 
Ny 


a eee ae CF 


em ce - ee 


MACY11 


Mrorrnrr 
MAMA 
reo 


SOESSDSDCOCDO — 
res 


ec ee cel rel eel cel cel nel cell ell meld 


sos 


MAA) 
ww 
oro 


$ 
333888 


oOooooo°o[0o 
~~ 
Oro 


012606 


30A(10 
=JUL-8 


FSERNS 


o-° 
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EN 


Oo 
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San 
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2 


010000 
02000C 
013664 


000131 
000116 


040000 
020000 


013664 
000104 


000004 


000106 


000004 


040000 


001304 
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328: 


31$: 
30$: 


4408: 


442%: 


SQUES 


443%: 
441$: 
18$: 
19$: 


eR 
(Re 
T13,(R2) 


:1F NOT A 1,2 OR N TYPE °'?"’ 
; TRY AGIAN 

;SET BIT 12 IN STAT2 IF NO LU 
;POP OVER STAT2 AND STAT3 


;SET BIT 13 IN STAT2 IF M8202 
;ASK IF LOOP-BACK IS ON 
;GET REPLY 


sI1F NOT Y OR N TYPE ‘'?°’ 
; TRY AGAIN 
a IS CONNECTED 


: BR IF YES. 


; ASK QUESTION 
; ABOUT MODEM TTYPE 


440% 
#BIT2,2(R2) 


19$ 
#BIT14,(R2)+ 


0 
1 
STMPS,(R2)+ 


: GET ANSWER. 
; sg IT DMC11-DA? 


; YES INDICATE IT IN STAT3 

:1S_IT A DMCII-FA (v.35)? 

; YES-TAKE CARE OF IT. 

; NO ASK OPERATER WHATS GOING ON. 
; REASK QUESTION 

; YES V.35, RECORD IN STAT3 

; END DECISION POINT. 

3NO TURNAROUND 


;STORE SWITCH PAC IN MAP 


SEQ 0056 


EO 
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012716 000 .BYTE 0 

012717 001 "BYTE 1 

012720 113722 001304 MOVB $TMP3,(R2)+ ;STORE SWITCH PAC IN MAP 

012724 0057 : TST (R2)¢ ‘POP OVER STAT3 

012726 005337 001302 33$: DEC $TMP2 :DEC KMC COUNT 

012732 001200 BNE 12$ IF MORE TO DO 

012734 000137 013272 JMP 13$ INUE 

012740 012701 160000 7$: MOV #160000,R1 “SET FOR FIRST ADDRESS TO BE TESTED 

012744 012737 013364 000004 MOV #6$,a84 “SET FOR NON-EXISTANT DEVICE TIME OUT 

012752 005011 2$: CLR (R15 “CLEAR SELO 

012754 005711 TST (R1) “IF KMC11 KMCSR $/B 0 

012756 001135 BNE 3$ s;1F NO DEV ; TRAP TO 4. IF NO BIT 8 THEN NO KMC11 

012760 005061 000006 CLR 6(R1) “CLEAR SEL6 

012764 005761 006 TST 6(R1) "IF KMC11 THEN KMRIC S/B <0! 

012770 001130 BNE 3$ “BR IF NOT KMC11 

012772 012711 002000 MOV ¥BIT10, (R1) “SET ROMO 

012776 005061 000004 CLR 4(R1) “CLEAR SEL4 

013002 012761 125252 000006 MOV #125252 6(R1) ;WRITE THIS TO SEL6 

013010 052711 020000 BIS #B1T13,(R1 “WRITE IT! 

013014 022761 125252 000004 CMP #12525 55 etRT) “WAS IT WRITTEN? 

013022 001113 BNE 35 :1F NO IT IS NOT CRAM 

siaaiie jAT THIS POINT 'T IS ASSUMED THAT R1 HOLDS A KMC11 CSR ADDRESS. 

013024 010122 22$: MOV R1,(R2)¢ sSTORE CSR IN CORE TABLE. 

013026 012711 001000 15$: MOV #BIT9, (R1) :CLEAR LINE UNIT LOOP 

013032 005061 000004 CLR 4(R1) =CLEAR PORTS 

013036 012761 122113 000006 MOV #122113,6(R1) :LOAD INSTRUCTION (CLR DTR) 

01 3044 052711 00 BIS ae TB, (R =CLOCK INSTRUCTION 

013050 012761 021264 000006 MOV 1264,6(R1) LOAD INSTRUCTION 

013056 052711 000400 BIS #BITS, (RI) “CLOCK INSTRUCTION 

013062 122761 000377 000004 cMPBOséa#'3777,4(R1) :1S IT ALL ONES? 

013070 001003 BNE +10 *BR IF NO 

013072 052712 010000 BIS #B1T12, (R2) :IF YES, NO LINE UNIT, SET STATUS BIT 

013076 000436 BR 20$ 

013100 032761 000002 000004 BIT #B1T1,4(R1) :1s SUIT Cy A ONE? 

013106 001403 BEQ +10 M8201 

01311 052712 060000 BIS #BITI3‘BIT14, cR2be ay ASSUME CONNECTOR 

013114 2 BR : CONNECTOR OR ON) 

013116 032761 000010 000004 BIT T3,4(R1) iI mABY 

013124 001023 BNE R IF ng NO CONNECTOR (ON LINE) 

013126 012761 000100 000004 MOV #B1T6,4(R1) PORTS 

0131 12761 122113 000006 MOV #122113,6(R1) SLOAD INSTRUCTION 

013142 052711 00 BIS 118 (R1) sCLOCK INSTRUCTION(SET DTR) 

013146 012761 021264 000006 MOV 1264,6(R1) :LOAD INSTRUCT 

013154 052711 000400 BIS 1T8, (R1) SELOCK INSTRUCTION(READ ODER REG) 

013160 032761 000010 090004 BIT 1T3.4(R1) 1S MRDY SET NOW? 

013166 140 BEO $ NO CONNECTOR 

013170 052712 040000 BIS #BIT14, (R2) *SET STATUS BIT FOR CONNECTOR 

013176 005722 20$: TST 2) : IN 

013176 012761 021324 000006 mOV #021324,.6(R1) :PUT INSTRUCTION IN PORT6 

01 012711 001400 MOV IT9'BIT8,(R1) :PORT4_ 

013210 156122 4 BISB R1).(R2)+ ‘STORE DDCMP LINE # IN TABLE 

013214 012761 021 4 000006 V 021 344 6(R1) ;PORT6_ INSTRUCT 10N 

013222 012711 001400 MOV #BITB'BITO, (RI) : : CLOCK “INS 

013206 156122 000004 BISB 4(R1),(R2)+ : STORE ineys ADD IN TABLE 

013232 005722 ST (R2)+ "POP OVER STAT 


ee 


- —e— re ee ee ——-— - a oe - ee ee ee et a ——- ——— ———— 
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$138 Hite 005011 CLR (R1) ;CLEAR ROMI 
2793 «013 005237 001472 INC KMNUM “UPDATE DEVICE COUNTER 
2794 013242 022737 000020 001472 CMP #20, KRNUM "ARE MAX. NO. OF DEV FOUND? 
2795 013250 001410 BEQ 13$ “YES DON'T LOOK FOR ANY MORE. 
2796 013252 005011 3$: CLR (R1) “CLEAR BIT 10 
2797 013254 005061 000006 CLR 6(R1) “CLEAR SEL 6 
2798 013260 062701 000010 14$: ADD #10,R1 sUPDATE CSR POINTER ADDRESS 
2799 013264 022701 164000 CMP #164000,81 
2800 013270 001230 BNE 2$ :BR IF MORE ADDRESS TO CHECK. 
2801 013272 005037 001470 13$: CLR KMACTV 
2802 Oi ears 005737 001472 TST KMNUM sWERE ANY KMC11°S FOUND AT ALL? 
2803 013302 001423 BEC 5$ sERROR AUTO SIZER FOUND NO KMC11'S IN THIS SYS. 
2804 013304 013701 001472 MOV KMNUM,R1 
2805 013310 010137 001476 MOV R1,SAVNUM :SAVE NUMBER OF DEVICES 
2806 013314 000241 4$: CLC 
2807 013316 006137 001470 ROL KMACTV ;GENERATE ACTIVE REGISTER OF DEVICES. 
2808 013322 005237 001470 INC KMACTV “SET THE BIT 
2809 01 3326 005301 DEC R1 
013330 001371 BNE 4$ :BR IF MORE TO GENERATE 
013332 012737 000006 000004 MOV #6084 "RESTORE TRAP VECTOR 
013340 013737 001470 001474 MOV KMACTV,SAVACT  :SAVE ACTIVE REGISTER 
013346 000137 013400 JMP VECMAP -GO FIND THE VECTOR NOW. 
013352 104401 007645 S$: TYPE ,MERR2 ‘NOTIFY OPR THAT NO KMC11°S FOUND. 
013356 005000 CLR RO “MAKE DATA LIGHTS ZERO 
13360 HALT “STOP THE SHOW 
013362 000776 BR .=2 :DISABLE CONT. SW. 
013364 012716 013260 6$: MOV #14$, (SP) sENTERED BY NON-EXISTANT TIME-OU7. 
013370 000002 RT] “RETURN TO MAINSTREAM 
013372 000001 WHICH: 1 
013374 002 002 .BYTE 2,2 
013376 001306 $TMP4 
013400 032737 000001 001446 VECMAP: BIT #sw00,STRTSW 
013406 001114 BNE 5$ 
013410 012737 000340 000022 #340,a822 :SET IOT TRAP PRIO TO 7 
013416 012737 013572 000020 #4$,a820 >SET 1OT TRAP VECTOR 
013424 012702 002100 #KM. MAP, R2 *SET SOFTWARE POINTER 
013430 012700 00030 #300,R0 >FLOATING VECTORS START HERE. 
013434 012701 000302 “Rt :PC OF IOT INSTR. 
013440 010120 1$: R71, (RO)+ “START FILLING VECTOR AREA 
013442 012721 000004 #4. (R1)+ ‘WITH .+#2; IOT 
013446 022021 (rb)+, (R1)+ “ADD 2 TO RO +R1 
013450 020127 001000 r1,#1600 
013454 101771 1$ :BR IF MORE TO FILL 
013456 013737 001470 001276 MOV KMACTV,STMPO = ;STORE TEMPORALLY 
013464 37 001276 2$: ROR STMPO ‘BRING OUT A BIT 
013470 103063 BCC 5% “BR IF ALL DONE 
013472 012704 000012 MOV #12,R4 =R4 IS INDEX REGISTER 
013476 016437 013650 177776 MOV BRLVL(R4),PS SET PS TO 7 
013504 011201 MOV (R2),R1 
013506 012761 000200 000004 MOV #200.4(R1) 
013514 012711 001 MOV 8119 (R1) :SET ROMI 
013520 012761 121111 000006 MOV #121111,6(R1) :PUT INSTRUCTION IN PORT6 
013526 012711 001400 MOV #BITO'BITS,(R1) :FORCE AN INTERRUPT 
013532 105200 7$: INCB RO ‘STALL 
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QO8-JUL-80 08:27 PAGE 60 
POWER DOWN AND UP ROUTINES 


a 


H 5 
SEQ 0059 


72 :FOR TIME TO INTERUPT 
#2,R4 :GET NEXT LOWEST PS LEVEL 
“BR IF R4 = 0 
BRLVL(R4),PS :MOVE NEXT LOWER LEVEL IN PS 
#5300,2(R2) :NO INTERUPT ASSUME 300 AT LEVEL 5 AND FIX KMC11 LATER 
#10,R2 “POP SOFTWARE POINTER 
:KEEP GOING 

(SP) ,2(R2) :GET VECTOR ADDRESS 
#7,2(R2) “CLEAR JUNK | 
BRLVL+2(R4),R5 :GET BR LEVEL OF KMC11 
R5 :SHIFT LEVEL 4 PLACES 
RS >TO THE LEFT FOR THE 
R> :STATUS TABLE 
#170777,RS :CLEAR UNWANTED BITS 
R5,2(R2) :PUT BR LEVEL IN STATUS TABLE 
(SP)+,(SP)+ :POP IGT JUNK OFF STACK | 
#3$, (SP) -SET FOR RETURN 
#SSCOPE,a#20 =; RESTORE SCOPE VECTOR 
PC 7ALL DONE WITH “AUTO SIZING'’ 
sLEVEL 0 
;LEVEL 0 
sLEVEL 4 
sLEVEL 5 
sLEVEL 6 
sLEVEL 7 
asiKs sWAIT FOR DONE 
aSTKB,R3 sPUT CHAR IN R3 

Ps sWAIT UNTIL PRINTER IS READY 


;ECHO CHAR 
sMASK OFF LOWER CASE 
;RETURN 


RZ. aSTPB 
> sal anh 


RO.-(SP) ::PUSH RO ON STACK 

R1,-(SP) ::PUSH R1 ON STACK 

R2,-(SP) PUSH Re ON STACK 

R3.=(SP) ::PUSH R3 ON STAC 

VECTR : CLEAR THE LOCAL VARIABLE 

PRIRTY > CLEAN UP LOCAL VARI 

$CDW1,RO : GET THE DEVICE COUNT 

RO, SAV : SAVE THE NO. OF DEVICES 
AMS1,R1 : GET EXTRA INFO, BITS POINTER 

SBASE BA : GET BASE CSR ADDRESS 

SVECTI,VECTR : GET THE VECTOR 

SVECTI+1,PRIRTY ; GET THE PRIORITY 

SDEVM,KMACTV =: SAVE THE KMC'S SELECTED ACTIVE 
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MACY11 30A(1052) O8-JUL-80 08:27 PAGE 61 
08-JUL-80 08:24 POWER DOWN AND UP ROUTINES SEQ 0060 
014004 013737 001470 001474 MOV KMACTV,SAVACT ; SAVE THE ACTIVE REGISTER 
014012 01270 001402 MOV #$DDWO.R2 : GET ADDRESS OF FIRST DEVICE DESCRIPTOR WORD 
014016 012703 002100 MOV #KM.MAP,R3 " GET POINTER TO DEVICE MAP 
01402 005023 3$: CLR (R3)¢ : CLEAR DEVICE MAP 
014084 022703 002300 CMP #KM.END,R3 : [§ WHOLE DEV.MAP CLEARED? 
014030 003374 BGT 3g : NO, THEN GO ON. 
014032 012703 002100 MOV #KM.MAP_R3 : RESTORE DEV.MAP POINTER. 
014036 01 723 014134 1$: MOV BASE, (R3)+ : LOAD CSR ADDRESS 
014042 112163 000001 MOVB = (R1)+, 1(R3) : GET EXTRA INFO. BITS 
014046 006213 ASR (R3) : SET IT IN RIGHT POSI 
014050 006213 ASR (R3) : SET IT ™ RIGHT POSITION 
014052 053713 014136 BIS PRIRTY, (R3) : GET PRIORITY IN STAT 
014056 006313 ASL (R3) : SET THEM IN RIGHT POSITION 
014060 006 13 ASL (R3) : ‘e ee 8 se ef 
014062 006313 ASL (R3) a a Zz 
014064 006313 ASL (R3) oy et ve Zz 
014066 053723 014132 BIS VECTR, (R3)+ : GET THE VECTOR IN STATI. 
014072 012223 MOV (R2)+, (R3) + GET THE STAT2 FROM DDWXX 
014074 005723 TST (R3)+ > SK.P OVER STAT3 
014076 005300 DEC RO : COUNT BY 
014100 001407 BEQ 2$ > ALL DONE? 
014102 062737 000010 014134 ADD #10,BASE : INCREMENT BASE CSR ADDRESS BY 10 
014110 062737 000010 014132 ADD #10, VECTR > INCREMENT VECTOR ADDRESS BY 10 
014116 000747 _ BR 1$ : SET THE NEXT MAP ENTRY 
014120 012603 MOV (SP)+,R3 ::POP STACK INTO R3 
014122 012602 MOV (SP)+,R2 ::POP STACK INTO R2 
014126 012601 MOV (SP)+,R1 -:POP STACK INTO R1 
14126 012600 MOV (SP)+.RO *:POP STACK INTO RO 
014130 000207 RTS PC : RETURN 
014132 000000 VECTR: .WORD 0 
014134 000000 BASE: “WORD 0 
014136 000000 PRIRTY: .WORD 0 
seaeeeeeeeereeeteetetereraren TEST ] Skene ereeeaerereeeeeeeerere 
>*OUT CONTROL REGISTER READ/ONLY TEST 
:#D0 A MASTER CLEAR, VERIFY THAT ALL READ/ONLY 
**BITS ARE IN THE CORRECT STATE 
5 TRASK ASAR TSAR AAT AAAAT AAA AAA RAAAARAKAAAKAEARAKAAAREAAKeARAeee Reet 
Fy AMARA AAAAAAA AAA AAA ATA AAA AAAARAAAARRAARERRARAARARAAERe TAA ee 
014140 000004 TST1: SCOPE 
014142 012737 000001 001202 MOV #1, STSTNM : LOAD THE NO. OF THIS TEST 
014150 012737 0142146 001442 MOV #1ST2,NEXT : POINT TO THE START OF NEXT TEST. 
:R1 CONTAINS BASE KMC11 ADDRESS 
014156 005077 165704 CLR @KMCSR CLE sELO 
14162 012702 000011 v #11,R2 “SAVE R2 FOR TYPEOUT 
014166 104412 ROMCL K ‘NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
014170 021224 021004 !<20*11> :PORT4 LINE UNIT REG 11 
014172 016104 000004 MOV 4(R1) RG :PUT “FOUND'’ IN R4 
014176 042704 000054 BIC = #54, RA CLEAR UNKNOWN BITS 
014202 012705 000020 MOV #20,R5 “PUT “EXPECTED IN RS 
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O8-JUL-80 08:27 PAGE 62 
8:2 LINE UNIT READ/ONLY TESTS 


CMPB R5,R4 
EQ 1$ 
ERROR 2 


seeeeeeeteneteretereeeeeenae TEST 2 eetaenneneanaeaneeneeeeeeet 


>*IN CONTROL REGISTER READ/ONLY TEST 
:*DO A MASTER CLEAR, VERIFY THAT ALL READ/ONLY 
>*BITS ARE IN THE CORRECT STATE 


‘EADS AAA RRARARRRARAAARELASELESL ELSES EERE ERE R SE REE EEE EE EEE EEE ES 


PET TITITILITITIIILILILILI TILT LILL LLL LLL LiL iiiiii iii ttiie 
TST2: SCOPE 
MOV #2,STSTNM ; LOAD THE NO. OF THIS TEST 
MOV #TSTS,NEXT ; POINT TO THE START OF NEXT TEST. 
;R1 CONTAINS BASE KMC11 ADDRESS 
MOV #12,R2 ;SAVE R2 FOR TYPEOUT 
ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021004 !<20*12> ;PORT4 LINE UNIT REG 12 
MOV 4(R1), ;PUT *‘FOUND’’ IN R4 


BIC #17,R4 :CLEAR UNKNOWN BITS 
CLR R5 ;PUT "EXPECTED’’ IN R5 
CMPB R5,R4 ;ARE ALL BITS CLEARED? 
BEQ 1$ ;BR IF YES 
1s ERROR 2 sERROR IN LU 12 
seaeeeeakeeererecerecerereces TEST 5 seeenecereceeeeneceerereres 
>*MODEM CONTROL REGISTER READ/ONLY TEST 
;*DO A MASTER CLEAR, VERIFY THAT ALL READ/ONLY 
s*BlTS ARE IN THE CORRECT STATE 
s RRRRRERAAATAAATARAEAAAAAAeAAeATeeeeTeeeeTeteReeeKeeeeeeeLereee 
s FEST 3 
MIITITITI TITLE 
1ST3: SCOPE 
MOV #3. STSTNM ; LOAD THE NO. OF THIS TEST 
MOV #TST4 NEXT O THE START OF NEXT TEST. 








: POINT T 
:R1 CONTAINS BASE KMC11 ADDRESS 
MSTCLR sMASTER CLEAR KMC11 
MOV #13,R2 :SAVE R2 FOR TYPEOU 









YPEQUT 
ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021004 !<20*13> :PORT4 LINE UNIT REG 13 
MOV 4(R1) R4 :PUT "FOUND'' IN R 
BIC 4213 .R4 : CLEAR UNKNOWN, BITS 
#100,85 “PUT EXPECTED’ IN RS 
CMPB sR, RG [ARE RING, DTR, AND MODEM READY SET? 
BEQ 1$ “BR IF YE 
ERROR 2 ‘ERROR IN LU 13 
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CZKCF MACY11 30A(1052) O8-JUL-80 O08: ef PAGE 63 
CZ2KCF.P11 08-JUL-80 08:24 LINE UNIT READ/ONLY TESTS SEQ 0062 
3016 
3017 seeaneeererereretereeeeeaeree TEST 4 seatanaaeaeacaneeneeeeeeente 
3018 : *MAINTENANCE REGISTER READ/ONLY TEST 
3019 :*D0 A MASTER CLEAR, VERIFY Hl ALL READ/ONLY 
3020 e811 S ARE IN THE CORRECT STATE 
3021 MTT IIITILILE LALLA LLL LLL LILI LILLILiTiLiiiiiiiiiiTTttTie 
3052 ; TEST 4 
3025 jttnenedenenenenenerentrnttertentnnteneneetentnnaneeneenenteres 
3026 014334 4 SCOPE 
3027 014336 012737 000004 001202 MOV #4 ,STSTNM : LOAD A NO. OF THIS TEST 
3028 014344 012737 014426 001442 MOV #TSTS,NEXT POINT TO THE START OF NEXT TEST. 
3029 :R1 CONTAINS BASE KMC11 ADDRESS 
3030 014352 104410 MSTCL MASTER 7 gt MC11 
3031 014354 012702 000017 MOV #17,R2 E R2 FOR T YPEOUT 
014360 104412 ROMCLK ‘NeXt WORD IS ase ise ROMCLK PC=5304 
014362 021364 021004 !<20*17> ; PORTS LINE UN T REG 17 
014364 016104 000004 MOV 4(R1),R4 : PUT ""FOUND'’ 
014370 042704 000206 BIC #206,R4 ;CLEAR UNKNOWN BITS 
014374 012705 000051 MOV #51,R5 :PUT “ERPECTED ** IN RS 
014400 032737 020000 002050 BIT #B1T13,STAT1 xan. t AN MBD02 OR M8201? 
014406 001404 BEQ +12 :BR IF "8201 
014410 042704 000040 BIC #40,R4 ; MASK ¥ SI BIT IF Bg ig 
014414 042705 000040 BIC #B1T5,R5 :$1 BIT IS UNKNOWN ON AN M8202 
014420 120504 CMPB R5,R4 ;ARE SI AND ICIR SET? 
014422 001401 Q 1$ 3;BR IF YES 
014424 104002 ERROR 2 sERROR IN LU 17 
014426 1$: 
peeeaeererarereetereeereeane TEST 5 seeeeeacereneaceraceereeeerte 
> *LINE UNIT REGISTER ret Na aa TEST 
> *SET BITS IN LU REGIS VERIFY Iv IS SET 
:*CLEAR BITS IN LU REI STER 252 VERIFY IT IS CLEAR 
+ RORMRRORRCRSRR Rt EREteeReeteneeeeReeeAEReeeeeeeeeeeeeeeeeees 
: TEST 5 
+ Reeeeeeeeeenenenereeeedrerereceeeeeeeeneeeeeeeeeereneereneeeese 
014426 000004 TST5: 
0144 012737 5 001202 5, STSTNA ; LOAD THE NO. OF THIS TEST 
014436 012737 014566 001442 aTét6 NEXT : POINT TO THE START OF NEXT TEST. 
014444 012737 014460 001444 H 13. LOCK : ADDRESS FOR LOCK ON DATA. 
sR1 CONTAINS BASE KMC11 ADDRESS 
014452 104410 “MASTER CLEAR 1 
014454 Orsoee 000012 MOV #12,R2 sSAVE REGISTER ADDRESS FOR TYPEOQUT 
014460 012761 000040 000004 1$: MOV #40 ,4(R1) LOAD PORT4 
01 104412 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
0144 122112 122112 :SET BITS IN LU- 
014472 104412 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
014474 021245 021245 ;READ : LU-12 mi 
014476 012705 000040 MOV #40,R5 :PUT "EXPECTED" i R5 
014502 116104 000005 MOVB 5(R1),R4 ;PUT 'FOUND'' IN 
014 0427 000337 BIC #337,R4 :CLEAR UNWANTED BITS 
014512 120504 CMPB RS RG :1S BITS SET? 
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MACY11 30A(1052) O8-JUL-80 08:27 PAGE 64 


P11 OB=JUL-80 08:24 LINE UNIT WRITE/READ TESTS SEQ 0063 

014514 001401 BEO 28 ;BR IF YES 
014516 104003 ERROR ;ERROR, BIT 5 IS NOT SET 
074520 104405 28: SCOP1 ;SCOPE SUBTEST (SW09=1) 
014522 012737 014530 001444 MOV #3$,LOCK :NEW SCOP1 
014530 005061 000004 3$: CLR 4(R1) :LOAD PORTS 
014534 104412 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
014536 122112 122112 ;CLEAR BIT 5 IN LU-1 
014540 104412 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
014542 021245 021245 : READ 2 
014544 005005 CLR R5 :PUT “EXPECTED IN RS 
014546 116104 000005 MOVB  5(R1),R4 :PUT ''FOUND'' IN R4 
014552 042704 000337 BIC #337,R4 :CLEAR UNWANTED BITS 
014556 120504 CMPB = seaR'5,, RG :1§ BITS CLE 
014560 001401 BEQ 4$ “BR IF YES 
014562 104003 ERROR 3 ;ERROR, BITS IS NOT CLEAR 
014564 104405 4$: SCOP1 ;SCOPE SUBTEST (Sw09=1) 

skeekeeeekeerererereerereeeae TEST § seeneceeeaceneaaneeneneanret 

S*LINE UNIT REGISTER WRITE/READ TEST 

:*SET BIT] IN LU REGISTER 17, VERIFY IT IS SET 

:*CLEAR BIT] IN LU REGISTER 17, VERIFY IT IS CLEAR 

RHR ERERREREREERERERRERAREREEREREREREEEEE EERE ERE eEEEEREeeeees 
; TEST 6 
PIITITITITITIT IIIT TLL LLL TLL iii Titi TTit iii 
014566 000004 TST6: SCOPE 
014570 012737 000006 001202 MOV #6, STSTNM ; LOAD THE NO. OF THIS TEST 
014576 012737 014726 001442 MOV #TST7 NEXT ; POINT TO THE START OF NEXT TEST. 
0146046 012737 014620 001444 MOV #1$,LOCK ; ADDRESS FOR LOCK ON DATA. 
;R1 CONTAINS BASE KMC11 ADDRESS 
014612 104410 MSTCLR :MASTER CLEAR KMC1 
014614 012702 000017 MOV #17,R2 ;SAVE REGISTER ADDRESS FOR TYPEOUT 
014620 012761 000001 000004 1S: MOV #1,4(R1) : LOAD PORT4 
014626 104412 ROMCLK ;NEXT WORD 1S INSTRUCTION, ROMCLK PC=5304 
014630 122117 :SET BIT? IN LU-17 
014632 104412 7NEX XT WORD is” INSTRUCTION, ROMCLK PC=5304 
014634 021365 sREAD LU-17 
014636 012705 1 1,85 ;PUT NEXPECTED" IN RS 
014642 116104 000005 5(R1) .R4 ;PUT “"FOUND'' IN R4 
014646 042704 000376 376 :CLEAR UNWANTED BITS 
014652 120504 5 RA :1§ BIT1 SET? 
014654 001401 :BR IF YES 
014656 104003 3 sERROR, BIT 1 IS NOT SET 
a1 4660 104405 2$: ;SCOPE SUBTEST (Sw09=1) 
14662 012737 014670 001444 #3$,LOCK ; NEW w SCOP? 

014670 005061 000004 3$: 4(R1) :LOAD PORT4 
014674 104412 NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
014676 122117 :CLEAR BIT 1 IN LU- 
014700 104412 iNEX XT WORD Is INSTRUCTION, ROMCLK PC=5304 
014702 021365 ; . 
014704 005005 R5 put "EXPECTED" IN RS 
014706 116104 000005 5(R1) ,R4 ‘FOUND'' IN R4 
014712 042704 000376 #376 ,R4 CLEAR UNWANTED BITS 
014716 120504 R5 RA :1§ BIT? CLEAR? 
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MACY11 30A(1052) Q8-JUL-80 08:27 PAGE 65 
1 08-JUL-80 08:24 LINE UNIT WRITE/READ TESTS SEQ 0064 
014720 001401 BEQ 4$ ;BR IF YES 
014722 104003 ERROR 3 SERROR, BIT1 IS NOT CLEAR 
014724 104405 4$: SCOP 1 ;SCOPE SUBTEST (SW09=1) 


peeeekeneteeeeeerereeerenaae TEST 7 seeaneneeaeeaeareeaneeeeenet 
; *LINE UNIT REGISTER WRITE/READ TEST 

*FLOAT A 1 THROUGH LINE UNIT REGISTER 13 
‘ #FLOAT A 0 THROUGH LINE UNIT REGISTER 13 


MEADS RAAARRARAAASAARALARA REALE LEELA EELS EE EEE REESE EEE EERE EE EE EE 






















; TEST 7 

PITITIIITILI LILI L LLL LLL LLL LLL LLL LLL LLL LLL iLL iii iii TiTiee 
014726 000004 1ST7: SCOPE 
014730 012737 000007 001202 MOV #7, STSTNMA ; LOAD THE NO. OF THIS TEST 
014736 012737 015136 001442 MOV #TST10,NEXT : POINT TO THE START OF add TEST. 
014744 012737 014764 001444 MOV #64$,L0CK ADDRESS FOR LOCK ON DATA 

:R1 CONTAINS DASE KMC11 ADDRESS 
014752 104410 MSTCLR “MASTER CLEAR KMC11 
014754 012702 000013 MOV #13,R2 :SAVE REGISTER ADDRESS FOR TYPEOUT 
014760 012700 000001 sie MOV #1,R0 :START WITH BIT 0 
4764 010061 000004 MOV RO,4(R1) :PUT PATTERN INTO PORTS 
014770 042761 000257 000004 BIC #257,4(R1) [CLEAR UNWANTED BITS 
014776 104412 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
01 122113 122100!13 :MOV DATA TO IBUS REGISTER 13 
015 2 104412 OMCLK : NEX INSTRUCTION, ROMCLK PC=5304 
1 02126 2100 1<138202 GISTER 13 

015006 010005 R 
015010 042705 000257 “tt: 9287° RS 
015014 116104 000005 MOVB 5(R1),R4 
015020 042704 000257 BIC #257, R4 : 
015024 120504 C RS,R4 CT? 
015026 001401 BEOQ 658 °BR IF YES 
015030 104003 ERROR :E 
015032 104405 65$:  SCOPT >§w09=1? 
015034 000241 CLC [CLEAR CARRY 
015036 106100 RO :SHIFT BIT IN RO 
015040 001351 64$ -IF RO=0 THEN DONE 
015042 012737 015056 001444 #67%,L0CK “NEW SCOP1 
015050 012700 000001 #1,R0 [START WITH BIT 0 
015054 005100 698 0 [CHANGE TO FLOATING ZERO 
015056 010061 000004 RO,4(R1) ;PUT PATTERN INTO PORT4 
01 042761 000257 000004 #257,4(R1) :CLE AR UNWANTED BITS 
015070 104412 R CLK DIS INSTRUCTION, ROMCLK PC=5304 
015072 122113 122100!13 ‘ROY TOATA TO IBUS REGISTER 
015074 104412 ROMCLK ‘NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
015076 021265 2100 1<13*20> :READ FROM IBUS REGISTER R {3 
015100 010005 RO, R5 :PUT EXPECTED IN R 
015102 042705 000257 Blt «257 RS CLEAR UNWANTED BITS 
015106 116104 000005 mOVB 5(R15,R4 ‘PUT FOUND’ INTO R4 
01511 042704 000257 BIC #257 R “CLEAR UNWANTED BITS 
015116 120504 CMPB a5 _RG ‘DATA CORRECT? 
015120 001401 BEQ 68$ “BR IF YES 
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CF MACY11 30A(1052) OB8-JUL-80 08:27 PAGE 66 
CF.P11 OB-JUL-80 08:24 LINE UNIT WRITE/READ TESTS 
3184 015122 ERROR 3 ERROR 
3185 015124 68$: SCOP1 : §wO9=1? 
3186 015126 COM RO ‘CHANGE TO FLOATING 1 
3187 015130 CLC “CLEAR CARRY 
3188 015132 ROLB ~=—s-_- RO :SHIFT BIT IN RO 
3189 015134 BNE 69$ :1F RO=0 THEN DONE 
3191 
3192 skeeeeekeeeeeneeetecereeaenae TEST 10 seateneneeneneaaaeernenenee 
3193 :*LINE UNIT REGISTER WRITE/READ TEST 
3194 :*FLOAT A 1 THROUGH LINE UNIT REGISTER 14 
3195 :*FLOAT A 0 THROUGH LINE UNIT REGISTER 14 
S199 SERRA AARATRER AER AREER E TATRA EAEEAAE ERE R AREA TERETE Rees 
$196 s TEST 10 
3200 PTTITITITITILI TILL ILLTLLLLILLLLT LLL L iii iii Titi T rire ie 
3201 015136 TST10: SCOPE 
3202 015140 0 000010 001202 MOV #10,$TSTNM : LOAD THE NO. OF THIS TEST 
3203 015146 0 015312 001442 MOV #TST11, NEXT : POINT TO THE START OF NEXT TEST. 
3204 015154 0 015174 001444 MOV #64$,LO0CK : ADDRESS FOR LOCK ON DATA. 
3205 :R1 CONTAINS BASE KMC11 ADDRESS 
3206 015162 104410 MSTCLR ;MASTER CLEAR KMC11 
3207 015164 012702 000014 MOV #14,R2 “SAVE REGISTER ADDRESS FOR TYPEOUT 
08 015170 012700 000001 PN MOV #1,RO0 :START WITH BIT 0 
3210 015174 010061 000004 MOV RO,4(R1) :PUT PATTERN INTO PORTS 
3211 015200 104412 R CLK ‘NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
1 15202 122114 122100! 14 :MOV DATA TO IBUS REGISTER 14 
3213 015204 104412 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
3214 015206 021305 21005 !<14#20> ;READ FROM IBUS REGISTER 14 
3215 015210 010005 MOV RO,R :PUT EXPECTED IN RS 
3216 015212 116104 000005 5(R1),R4 :PUT "FOUND" INTO R4 
3217 015216 120504 RS5,R4 :DATA CORRECT? 
3218 015220 001401 65$ *BR IF YES 
3219 015222 104003 4 s ERROR 
3220 015224 104405 65$: :§w09=1 
3221 015226 000241 :CLEAR CARRY 
3222 015 106100 RO :SHIFT BIT IN RO 
32 015432 001360 64$ sIF RO=O0 THEN DONE 
3224 015234 012737 015250 001444 #67$,LOCK :NEW SCOP1 
3225 015242 012700 000001 #1,R0 :START WITH BIT 0 
3226 013246 005100 69S: :CHANGE TO FLOATING ZERO 
3227 015250 67$: 
3228 015250 010061 000004 RO,4(R1) :PUT PATTERN INTO PORTS 
3229 015254 104412 ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
230 015256 122114 122100! 14 sMOV DATA TO IBUS REGISTER 14 
3231 015260 104412 :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
232 015262 021305 21005 !<14%20> :READ FROM IBUS REGISTER 14 
015264 010005 MOV RO,R PUT EXPECTED IN RS 
34 015266 116104 000005 MOVB  5(R1),R4 :PUT "FOUND INTO R4 
3235 015 120504 CMPB sR, RG :DATA CORRECT? 
3236 015274 001401 BEQ oat “BR IF YES 
237 015276 104003 ERROR “ERROR 
38 015 104405 68$: SCOP1 »Sw09=1? 
39 015302 005100 COM RO *CHANGE TO FLOATING 1 
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P11 08-JUL-80 08:24 ~INE UNIT WRITE/READ TESTS SEQ 0066 
40 015304 000241 CLC ;CLEAR CARRY 
41 015306 106100 ROLB RO ;SHIFT BIT IN RO 
of 015310 001356 BNE 69$ ;1F RO=0 THEN DONE 
44 
45 peeeaeeeeeeetereeeeeeereeene TEST 1] canna eaeeeeeneeeeeeeeeeeeese 
46 :*SWITCH PAC TEST 
47 :*THIS TEST READS SWITCH PAC#1 
48 :*THIS SWITCH PAC CONTAINS THE DDCMP LINE # 
249 PE LESEASALI SALLE SEES ESTEE TEEPE TST STP TC ec ccc c ieee rc icc eae ii 
50 
23 > Fear v1 
26 PPTITITITITITIIITITILILILI TILL LLLL Li LiL LLL iiiiiiiiiTiiitie 
54 015312 TST11: SCOPE 
55 015314 012737 000011 001202 MOV #11,$TSTNM ¢ LOAD THE NO. OF THIS TEST 
56 0153522 012737 015354 001442 MOV #TST12,NEXT POINT TO THE START OF NEXT TEST. 
57 ;R1 CONTAINS BASE KMC11 ADDRESS 
58 0153530 104410 MSTCLR :MASTER CLEAR KMC11 
259 015332 104412 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
3260 015334 021324 021324 yA RT4 1 rt. 
3261 015336 016104 000004 MOV 4(R1),R4 T "FOUN R4 
3262 015342 113705 002052 MOVB STAT2,R5 ‘PUT "EXPECTED" IN R5 
3265 015346 120504 CMPB R5,R4 :SW OK? 
3264 015350 001401 BEQ 1$ :BR IF YES 
3265 015352 104031 ERROR 31 ERROR, SWITCH PAC READ ERROR 
66 015554 1$: 
$502 
3269 seeaekeeeeeeeeeeeeeteeeranen TEST 12 seancaneneeeererrerenereeee 
3270 ;*SWITCH PAC TEST 
3271 :*THIS TEST READS SWITCH PAC#2 
3272 >*THIS SWITCH PAC CONTAINS THE BM873 BOOT ADD 
3273 SERRA RARER A ATER ARAARAAAE KR EARARAEARERARAAREREREAARARE RRA AAAS 
3274 
$So0 ; TEST 12 
3277 5 RRR AAAAAAAAA AREER AAA TARA AA AAATAERAARERARAARARERAA HAAR Aeeee 
asr6 015354 000004 TST12: SCOPE 
79 «015356 012737 000012 001202 MOV | STNM ; LOAD a NO. OF THIS TEST 
3280 015364 012737 015416 001442 MOV BTSTISSNEXT ; POINT TO THE START OF NEXT TEST. 
it RI CONTAINS BASE KMC11 ADDRESS 
a 015372 104410 MSTCLR MASTER CLEAR KMC11 
3285 015374 104412 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 
84 015376 021344 021344 :PORT4 LUI6_ 
85 015400 016104 000004 MOV 4(R1) ,R4 :PUT "FOUND IN R4 
ry 015404 113705 002053 MOVB STATO+, R5 ;PUT ‘EXPECTED’ IN R5 
8 SE ret 120504 CMPB —séR'5,R :SW OK? 
88 015412 001401 BEQ 1$ BR IF YES 
89 015414 104031 ERROR 31 ;ERROR, SWITCH PAC READ ERROR 
Sor 015416 1$: 
329 
329 seeekeeeteeeetetererereeeene TEST 135 reeeeceeeerererrereeererens 


:*LINE UNIT CLOCK TEST 
295 ;*THIS TEST VERIFYS THAT THE LU INTERNAL CLOCK 
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8 
LINE UNIT WRITE/READ TESTS 
;*(BIT 1 IN LU=17) IS WORKING 


ODA DRARRRRRRRRRRRRASARALA SELES REESE EERE SERRE EEE REE EEE ES EEE EES 


; TEST 13 


ITTTITTLILILIELILL TTT ELLE ELITE TLE TTT TT TTTTTTTerTTTe 


18113: SCOPE 
MOV #13,$TSTNM ; LOAD THE NO. OF THIS TEST 
MOV #TST14,NEXT POINT TO THE START OF NEXT TEST. 
;R1_ CONTAINS Aa all ADDRESS 


MSTCLR “MASTER CLEAR 
- CLR TEMP :PREPARE FOR DELAY 
ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021364 :PORT4 LU-17 
BIT #2,4(R1) :1S CLOCK BIT SET? 
BNE 2$ :BR IF YES 
INC TEMP : DELAY 
BNE 1$ :DELAY FINISHED? 
ERROR 4 ERROR BIT IS STUCK CLEAR 
28: CLR TEMP :PREPARE FOR DELAY 
ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021364 *PORT4 LU-17 
BIT #2,4(R1) 71S CLOCK BIT CLEAR? 
BEQ 4$ ;BR IF YES 
INC TEMP LAY 
BNE 3$ :BR IF DELAY NOT DONE 
si ERROR 4 -ERROR BIT IS STUCK SET 
SRRRAAHEKAAAAATA ee eee tenes TEST 16 eeeaeneeeeereeaeerriererrzene 
**#QUT DATA SILO TEST 
:*SET SOM AND LOAD OUT DATA SILO 
:*VERIFY THAT OCOR SET, INDICATING THAT THE 
s *CHARACTER IS AT THE BOTTOM OF THE OUT SILO 
SHRAEAKSAACELELTLETEALTCATKAAAAATAAKRARAKETRAEARAAAAARERAERERAAARAERRARE 
; TEST 14 
poasohaneessnnneerossententeseensetenneranssneserconeneneeeesons 
TST14: SCOPE 
MOV #14, STSTNM ; Loe THE NO. OF THIS TEST 
MOV #TST15 NEXT TO THE START OF NEXT TEST. 
onthins. BASE KMC11 ADDRESS 
MSTCLR RASTER CLEAR KMC11 
MOV #B1T11,(R1) SET LINE 
MOV #1,4(R1) "LOAD PORT4 WITH BITO 
ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122111 :$ 
ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122110 ; LOAD OUT DATA SILO 
TIMER, 2 :WAIT FOR OCOR 
MOV #17,R2 ‘SAVE ADDRESS FOR TYPEQUT 
ROMCLK ‘NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
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BASIC TRANSMITTER TESTS 


000004 
000357 
000020 


000015 001202 
015754 001442 


004000 
000001 
030260 
000002 
000011 
000004 
000257 
000120 
000013 


000004 
000337 
000040 


000004 


1$: 


021364 
MOV 


D 6 


ee ee eee 


;PORT4 LU 17 


;PUT 


;BR IF YES 


peeeeeeeeteteneteeeeeeeeeeee TEST 15 saeeeeeneneaeeeeeeeeneeeees 
;*DDCMP TEST OF RTS AND OUT ACTIVE 
>*SET SOM AND LOAD OUT DATA SILO 
>*SINGLE STEP 2 DATA CLOCKS, VERIFY 
;*THAT RTS AND ACTIVE ARE SET 


ODADAS RAR RA RR RRARRRRRAALA SERS ELAS ESSE SESE SES EERE E EEE ERE SEE EEE SS 


s est 15 

TST15: SCOPE 
MOV #15,STSTNM 
MOV #TST1I6,NEXT 
MSTCLR 
MOV #BIT11,(R1) 

V #1,4(R1) 

ROMCL 
122111 
ROMCL 
12211 
JSR PC ,OCOR 
DATA 2 
MOV #11,R2 
OMCLK 
021224 
MOV 4(R1),R4 
BIC #257 ,R4 
MOV #120,R5 
CMPB RS ,R4 
BEQ 
ERROR 5 

18: 
MOV #13,R2 
ROMCLK 
021264 
MOV 4(R1),R4 
BIC #337 R4 
MOV #B1T5 RS 
CMPB aR4 
BEQ ¥ 
ERROR 

2$: 


‘ 
5g AAA RAAEERAR ARERR ERATE ARAAAEEEEEE 


; LOAD THE NO. OF THIS TEST 


THE START OF NEXT TEST. 


; POINT TO 
:R1 CONTAINS BASE KMC11 ADDRESS 
KMC11 


;LOAD PORTS WITH BITO 
NEXT WORD IS INSTRUCTION, 
SET SOM 


:NEXT WORD IS INSTRUCTION, 
“LOAD OUT DATA SILO 
“WAIT FOR OCOR 


:CLOCK DATA FOUR TIMES 
:SAVE ADDRESS FOR TYPEOQUT 
sNEXT WORD IS INSTRUCTION, 
sPORT4 LU 11 

;PUT “‘FOUND'' I 

sCLEAR UNWANTED BITS 

:PUT ‘EXPECTED’ IN R5 

s1S ACTIVE SET? 

;BR IF YES 


SAVE ADDRESS FOR TYPEOUT 
sNEXT ergs INSTRUCTION, 


:PORT4 LU 
:PUT ERPECTED IN R4 
-CLEAR UNWANTED BITS 


ROMCLK PC=5304 
ROMCLK PC=5504 


ROMCLK PC=5304 


ROMCLK PC=5304 


ze L 
;PUT EXPECTED’ IN RS, RTS SHOULD BE SET 


:1S RTS OK? 
:BR IF YES 
sRTS ERROR 


peeeeeeeererereeeetreeeeeeee TEST 16 reenenereeereeneereererenes 


SEQ 0068 
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:*TEST OF OUT CLEAR 

:*SET SOM AND LOAD OUT DATA SILO 

s*SINGLE STEP DATA CLOCK, SET OUT CLEAR 

severity THAT OCOR,RTS, AND ACTIVE ARE CLEARED 

oe PHRRHECHRO OC CCECRTECECERER ECE EEeEEECREEEeEAEeeneTeeatecceeeece 
; TEST 16 
PU TTITITITITILITITI TLL LL LILILILI LLL LITT Li LiTitiiiiiiiiiTTtttiee 
015754 000004 TST16: SCOPE 
015756 012737 000016 001202 MOV #16,$TSTNM ; LOAD THE NO. OF THIS TEST 
015764 012737 016152 001442 MOV #TST17, NEXT : POINT TO THE START OF NEXT TEST. 
:R1 CONTAINS BASE KMC11 ADDRESS 

015772 104410 MSTCLR “MASTER CLEAR KMC11 
015774 012711 004000 MOV #BIT11,(R1) :SET LINE UNIT LOOP 
016000 012761 000001 000004 MOV #1,4(R1) :LOAD PORT4 WITH BITO 
016006 104412 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
016010 122111 122111 T SOM 
016012 104412 ROMCL NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
916014 122110 12211 :LOAD OUT DATA SILO 
016016 004737 030260 JSR PC,OCOR sWAIT FOR OCOR 
016022 104413 000002 DATACLK, CLOCK DATA FOUR TIMES 
016026 012761 000200 000004 MOV #B1T7,4(R1) :SET Blt? IN PORTS 
016034 1046412 ROMCLK :NEXT WORD 1S, INSTRUCTION, ROMCLK PC=5304 
016036 122111 122111 >SET OUT CLEAR 
016040 104413 000001 DATACLK, 1 “GIVE A TICK TO CLEAR RTS 
016044 012702 000017 MOV #17,R2 : SAVE ADDRESS FOR TYPEOUT 
016050 104412 ROMCL NEXT WORD s INSTRUCTION, ROMCLK PC=5304 
016052 021364 021364 :PORT4 LU 1 
016054 016104 000004 MOV 4(R1),R4 sPUT ‘FOUND’ I 
016060 042704 000357 BIC #357 ,R4 ;CLEAR UNWANTED BITS 
016064 005005 CLR R5 :PUT "EXPECTED IN RS 
016066 120504 CMPB R5,R4 1S OCOR CLEARED? 
016070 001401 BEQ 1$ :BR IF YES 
016072 10400 ERROR § 
016074 1$: 
016074 012702 000013 MOV #13,R2 SAVE ADDRESS FOR TYPEOUT 
016100 104412 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
016102 021264 021264 sPORT4 LU 13 
016104 016104 000004 MOV 4(R1),R4 :PUT ERPECTED IN R4 
016110 042704 000 BIC #337 RG CLEAR UNWANTED BITS 
016114 500 CLR 5 :PUT seemecTed” IN RS, RTS SHOULD BE CLEARED 
016116 120504 C R5,R4 ;1S RTS OK? 
016120 001401 BEQ 23 :BR i YES 
O1e1ce 10400 i ERROR 5 sRTS ERROR 
Oloies 012702 000011 MOV #11,R2 :SAVE ADDRESS FOR TYPEOUT 
0161 104412 ROMC NEXT — IS INSTRUCTION, ROMCLK PC=5304 
016132 021224 021224 SPORTS OL 
016134 016104 000004 MOV 4(R1),R4 FOUND R4 
016140 012705 000020 MOV #BIT4,R5 SOMLY our R READY SHOULD BE SET 
016144 120504 CMPR R5,R4 :1S ACTIVE CLEAR 
016146 001401 BEO 3$ ‘BR IF YES 
O16130 104005 os ERROR § ERROR ACTIVE NOT CLEARED 
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ch BASIC TRANSMITTER TESTS 


PRRaKeeReeeeeeeeeeeeeeeeeeee TEST 17 seeaeaneeeeeeneeeeneeeeeees 
:*DDCMP TRANSMITTER TEST 
:*SINGLE CLOCK THE CHARACTER 0 
i VERIFY EACH BIT POSITION AS i 
PASSES THE BIT WINDOW (SI BIT) 
‘SON AN ERROR, R3 CONTAINS BIT POSITION OF FAILURE 


PETTITITITITIITTILTCEL TLE LITI LITE T ITT TTT LITTTiTTTTTTTTTTeTTtee 


; Test 17 


° 
STUER AR AAA AR REAR E REAR AA EER ATARERERAEEEAREREREKREHERERAEEEE 


TST17: 


1$: 


2$: 


3$: 


4$: 





MOV #17,$TSTNM ; LOAD THE NO. OF THIS TEST 

MOV #TST20,NEXT ; PO 
;R1 CONTAINS BASE KMC11 ADDRESS 

;MASTER CLEAR KMC11 

;SET LINE UNIT. LOOP 

;WAIT FOR QUT-READY 


MOV #B1T11,(R1) 
JSR PC ,OUTRIY 





MOV #1,4(R1) :SET {S170 IN PORTS 
ROMCLK NEXT WORD is” INSTRUCTION, ROMCLK PC=5304 
122111 ET SOM! 
MOV #0O,R5  ;LOAD CHARACTER IN RS FOR TYPEOUT 
JSR PC ,OUTRDY ;WAIT FOR OUT-READY 
MOV R5,4(R1) :LOAD PORT4 WITH CHARACTER 
OMCL :NEXT WORD iS INSTRUCTION, ROMCLK PC=5304 
122110 LOAD OUT DATA 
JSR PC,OCOR ;WAIT FOR OCOR TO SET 
CLR R3 :CLEAR BIT COUNTER 
V R5S,R2 ;LOAD CHARACTER IN R2 
DATACLK, 2 :2 TICKS TO SET UP TRANSMITTER 
DATACLK, 1 sSHIFT NEXT BIT IN THE WINDOW (SI BIT) 
:SHIFT NEXT SOFTWARE BIT IN TO CARRY 
BCC 2$ “BR IF CARRY CLEAR 
JSR PC,GETSI :GET THE WINDOW 
BCS 3$ sBR IF BIT IS A MARK 
ERROR 6 ERROR BIT WAS A SPACE 
RR 3$ sCONTINE WITH TE 
JSR PC,GETSI 3GET THE WINDOW 
3$ IF BIT IS A SPACE 
6 ‘ERROR BIT WAS A MARK 
R3 :NEXT BIT 
#10,R3 >DONE YET? 
BNE 1$ :BR IF NO 
DATACLK. 14 : CLOCK TRANSMITTER 14 MORE TICKS 
ROMCLK sNEXT yt S INSTRUCTION, ROMCLK PC=5304 
021264 *PORT4 LU-1 
+H ge ada RTS SAOULD BE CLEAR NOW 


EQ : 
ERROR 34 ERROR, RTS NOT CLEAR 


seeeeeeeetereerettererereeer TEST 20 tetereeeererecenrenereenens 


:*DDCMP TRANSMITTER TEST 


INT TO THE START OF NEXT TEST. 


SEQ 0070 
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P11 08-JUL-80 08:24 BASIC TRANSMITTER TESTS SEQ 0071 


>*SINGLE CLOCK THE CHARACTER 125 
:*VERIFY EACH BIT POSITION AS y 
;*PASSES THE BIT WINDOW (SI BIT) 
;*ON AN ERROR, R35 CONTAINS BIT POSITION OF FAILURE 


PPETITTITITITETITITETTITITITILL LTT LIT ELIT TT Teri TTiTTTitttee 


; TEST 20 
gpeuceneeascenecouseroteesnecesnaneccescenennersesecssscecenesees 
016334 900004 TST20: SCOPE 
016336 012737 000020 001202 MOV #20,$TSTNM ; LOAD THE NO. OF THIS TEST 
016344 012737 016516 001442 MOV #TST21 NEXT POINT TO THE START OF NEXT TEST. 
:R1 CONTAINS BASE KMC11 ADDRESS 
016352 104410 MSTCLR :MASTER CLEAR KMC11 
016354 012711 004000 MOV #B1T11,(R1) :SET LINE UNIT LOOP 
016360 004737 030412 JSR PC ,OUTRDY sWAIT FOR OUT-READY 
016364 012761 000001 000004 MOV #1,4(R1) :SET 8170 IN PORTS 
016372 104412 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
016374 122111 122111 T 
016376 012705 000125 MOV #125,R5 ;LOAD CHARACTER in RS FOR TYPEOUT 
016402 004737 030412 JSR PC ,OUTRDY sWAIT FOR OUT-READY 
016406 010561 000004 R5,4(R1) ; LOAD PORT4 WITH CHARACTER 
016412 104412 ROMCLK sNEXT WORD iS INSTRUCTION, ROMCLK PC=5304 
016414 122110 122110 :LOAD OUT DATA 
016416 004737 030260 JSR PC,OCOR ‘WAIT FOR OCOR TO SET 
016422 005003 CLR R3 :CLEAR BIT COUNTER 
016424 010502 MOV R5 :LOAD CHARACTER IN R2 
Ol ones 104413 000002 DATACLK, 2 :2 TICKS TO SET UP T 
164 104413 000001 1$: DATACLK, 1 sSHIFT NEXT BIT IN THE WINDOW (SI BIT) 
016436 106002 RORB R2 SHIFT NEXT SOFTWARE BIT IN TO CARRY 
016440 103005 BCC 2$ “BR IF CARRY CLEAR 
016442 004737 030226 JSR PC,GETSI :GET THE wi 
016446 103406 BCS 3$ -BR IF BIT I 
016450 104006 ERROR 6 sERROR BIT WAS A SPACE 
016452 000404 BR 3$ sCONTINE WIT 
016454 004737 030226 2$: JSR PC,GETSI sGET THE wi 
016460 103001 BCC 3$ BR IF BIT IS A SPACE 
016462 104006 ERROR 6 ERROR BIT WAS A MARK 
016464 3$: 
016464 005203 INC R3 sNEXT BIT 
016466 022703 000010 CMP #10,R3 DONE YET? 
016472 001357 BNE 1$ 7BR IF NO 
016474 104413 000014 DATACLK, 14 CLOCK TRANSMITTER 14 MORE TICKS 
016500 104412 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
016502 021264 021264 sPORT4 LU-13 
016504 032761 000040 000004 BIT #B1T5,4(R1) “RTS SROULD BE CLEAR NOW 
016512 001401 BEQ 4$ BR IF 
016514 104034 ERROR 34 “ERROR, "RTs NOT CLEAR 
016516 4$: 


ar Geeta thal TEST 21 eeeeeeeeeerereerereererener 


:*DDCMP TRANSMITTER TEST 

; *SINGLE CLOCK THE CHARACTER e¢ 
;*VERIFY EACH BIT POSITION AS IT 
:*PASSES THE BIT WINDOW (SI BIT) 
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000021 
016700 


004000 
030412 
000001 
030260 
000002 
000001 
030226 


030226 


000010 
000014 


000040 000004 


001202 
001442 


000004 


BASIC TRANSMITTER TESTS 


TST21: 


2$: 


3$: 


4$: 





SEQ 0072 
;*ON AN ERROR, R35 CONTAINS BIT POSITION OF FAILURE 


eh PP PARRA RRR RRR RRARARRR RRR ELLE EER RASS E EEE R ERE EEE EE EEE EEE EEE EEE 


; TEST 21 


‘ 
PEt A Dee PPP RRR RRR RRR RRR RRR R EERE RRR EL ERE SERRE REE EE EERE EE ES 


SCOPE 
MOV 


#21,STSTNM ; LOAD THE NO. OF THIS TEST 
MOV #TST22,NEXT ; POINT TO THE START OF NEXT TEST. 
:R1 CONTAINS BASE KMC11 ADDRESS 

MSTCLR MASTER CLEAR KMC11 

MOV #B1T11,(R1) SET LINE UNIT LOOP 

JSR PC ,OUTRDY ;WAIT FOR OUT-READY 

MOV #1,4(R1) ;SET BITO IN PORTS 

Sots ay WORD IS INSTRUCTION, ROMCLK PC=5304 


MOV #252,R5 :LOAD CHARACTER IN RS FOR TYPEOUT 
PC ,OUTRDY :WAIT FOR OUT-READY 


MOV R5,4(R1) sLOAD PORTS WITH CHARACTER 
ROMCLK s;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122110 LOAD OUT DATA 
JSR PC,OCOR :WAIT FOR OCOR TO SE7 
CLR R3 :CLEAR BIT COUNT 
MOV R5,R2 LOAD CHARACTER IN R2 
DATACLK, 2 :2 TICKS TO SET UP TRANSMITTER 
DATACLK, 1 SHIFT NEXT BIT IN THE WINDOW (SI BIT) 
RORB R2 sSHIFT NEXT SOFTWARE BIT IN TO CARRY 
BCC 2$ :BR IF CARRY CLEAR 
JSR PC,GETSI :GET THE WINDOW 
BCS 3$ :BR IF BIT IS A MARK 
ERROR 6 ERROR BIT WAS A SPACE 
3$ :CONTINE WITH TEST 
JSR PC GETS! *GET THE WINDOW 
BCC 3$ :BR IF BIT IS A SPACE 
ERROR 6 ERROR BIT WAS A MARK 
INC R3 NEXT BIT 
CMP #10,R3 DONE YET? 
BNE 1$ :BR IF NO 
DATACLK, 14 sCLOCK TRANSMITTER 14 MORE TICKS 
ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021264 sPORT4 LU- 
BIT #BIT5,4(R1) RTS SHOULD BE CLEAR NOW 
BEQ 4$ :BR IF Y 
ERROR 34 :ERROR, RTS NOT CLEAR 


‘eeeeeekeeeereeeereteeeeeees TEST 22 seeareecereeereeeerxrereneent 


;*DDCMP TRANSMITTER TEST 

s*SINGLE CLOCK THE CHARACTER 577 

s*VERIFY EACH BIT POSITION AS IT 

;*PASSES THE BIT WINDOW (SI BIT) 

;*0N AN ERROR, R35 CONTAINS BIT POSITION OF FAILURE 


S TRAAHATA CAAA AACA AAAAAARAKAKEAARAAAAAARAARARRARAR AREA eee ee Reese 


sone a ee + 


ES OO - 
~_— OO OL CE LO LOS OE AG TCT TT Ee EE ES SE eT RE 


ees eemneen es 
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CZKCF P11 08-JUL-80 08:24 BASIC TRANSMITTER TESTS SEQ 0073 

3632 ; TEST 22 
SOU 5 a a a a a a 
3634 PPTITITITILILILILLLLTLI LILI LILI TiTiLiTiiliiiiiiiiiiiiiiitiTtii 
2636 016702 B19? ? Q00022 001202 — NOV 22,$TSTNM 0 

V u N ‘ LOAD _% NO. OF THIS TES 
3637 016710 012737 017062 001442 MOV #TST23,NEXT POINT TO THE START OF NEXT TEST. 
3638 ;R1 CONTAINS *: KMC11 ADDRESS 
3639 016716 104410 MSTCLR :MASTER CLEAR KMC‘1 
3640 016720 012711 004000 MOV #B1T11,(R1) ;SET LINE UNIT. LOOP 
3641 016724 004737 030412 JSR PC ,OUTRDY ;WAIT FOR ey A 
a 016730 012761 000001 000004 MOV #1,4(R1) HH Aue IN PORT 
3645 016736 104412 ROMCL T WORD IS INSTRUCTION, ROMCLK PC=5504 
3644 016740 122111 122111 SET S 
3645 016742 012705 000377 MOV #377,R5 ;LOAD CHARACTER iN R5 aiae aad 
3640 016746 0047357 030412 JSR PC ,OUTRDY WAIT FOR OUT-READ 
3647 016752 010561 000004 MOV RS, 74 (R1) :LOAD PORTS WITH CHARACTER 
5648 016756 104412 ROMCLK ;NEXT WORD +H INSTRUCTION, ROMCLK PC=5504 
3649 016760 122110 122110 LOAD po DAT 
3650 016762 004737 030260 JSR PC ,OCOR WAIT FOR OCOR TO SET 
3651 016766 005003 CLR R3 ;CLEAR BIT COUNTER 
3652 016770 010502 MOV R5,R2 :LOAD CHARACTER IN R2 
36535 016772 104413 000002 DATACLK, 2 :2 TICKS TO SET UP TRANSMITTER 
3654 016776 104413 000001 1$: DATACLK, 1 ;SHIFT NEXT BIT IN THE WINDOW (SI BIT) 
3655 017002 106002 RORB 2 ;SHIFT NEXT SOFTWARE BIT IN TO CARRY 
3656 017004 103005 BCC 2$ ;BR IF CARRY CLEAR 
3657 017006 004737 030226 JSR PC,GETSI ;GET THE WINDOW 
3658 017012 103406 BCS 3$ ;BR IF BIT IS A MARK 
$20 017014 104006 ERROR § ;ERROR BIT WAS A SPACE 

017016 000404 BR $ :CONTINE WITH TEST 
3661 017020 004737 030226 2$: JSR PC ,GETSI :GET THE WINDOW 
3662 017024 103001 BCC 3$ :BR IF BIT IS A SPACE 
3665 017026 104006 ERROR 6 ERROR BIT WAS A MARK 
3664 017030 3$: 
3665 017030 005203 INC R3 sNEXT BIT 
3666 017032 022703 000010 CMP #10,R5 sDONE YET? 
3667 017036 001357 BNE 1$ BR IF NO 
3668 017040 104413 000014 DATACLK, 14 :CLOCK TRANSMITTER 14 MORE TICKS 
3669 017044 104412 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
3670 017046 021264 021264 ;PORT4 LU-1 
3671 017050 032761 000040 000004 BIT #B1T5,4(R1) :RTS SROULD BE CLEAR NOW 
3672 017056 001401 BEG 4$ :BR I 
3673 017 104034 ERROR 34 ERROR, "Ris NOT CLEAR 
3674 017062 4$: 
3675 
3676 
3677 fetes seeunet tee voce’ ** TEST 23 eeeeeeeeeecerereeeerereeere 
3078 S eetae. rate A aa TEST 
79 SINGLE CLOCK A weeers had OS he 

3680 SeVERIFY EACH BIT POSITION 

*PASSES THE BIT WINDOW 


1 : S MBIT ) 

3682 : #0N TAINS BIT POSITION OF FAILURE 
3 >#AND RS CONTAINS THE CHARACTER THAT FAILED 
5 


- (ARB RRABBSREARRRRAAREARARAR SARA RS ER ERERASAR ARR RRR RRR REAR REED ASD SD S| 


; TEST 23 
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08-JUL-80 08:24 BASIC TRANSMITTER TESTS SEQ 0074 
MARBRBRBRABRABASAASLARARESERERE RE REESE ESSERE SASSER ESOESESLESLOSCLLALLLASL 
017062 000004 1§123: SCOPE 
017064 012737 000023 001202 MOV #23, $TSTNM ; LOAD THE NO. OF THIS TEST 
017072 012737 017270 001442 MOV #1S124,NEXT POINT TO THE START OF NEXT TEST. 
:R1 CONTAINS BASE KMC11 ADDRESS 
017100 104410 MSTCLR :MASTER CLEAR KMC11 
017102 012711 004000 MOV #BITI1,(R1) “SET LINE UNIT LOOP 
017106 005003 CLR R "R3 CONTAINS BIT COUNT 
017110 005004 CLR Rd :R4 CONTAINS CHAR TO BE LOADED 1;. SILO 
017112 005005 CLR RS sR5 a ley CHARACTER CURRENTLY Rat: SHIFTED QUT 
017114 004737 030412 JSR PC,OUTRDY ‘WAIT FOR OUT-READY 
017120 012761 000001 000004 MOV #1,4(R1) :SET BITO IN PORTS 
017126 104412 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
017130 122111 122111 "SET SOM! 
017132 004737 030412 JSR PC,OUTRDY “WAIT FOR OUT-READY 
017136 010461 000004 MOV R4,4(R1) : LOAD PORT4 WITH CHARACTER 
017142 104412 ROMCLK MT WORD IS INSTRUCTION, ROMCLK PC=5304 
017144 122110 122110 LOAD OUT DATA 
017146 005204 INC R4 : INCREMENT TO NEXT CHARACTER 
017150 004737 030412 JSR PC,OUTRDY :WAIT FOR OUT-READY 
017154 010461 000004 MOV R4,4(R1) ;LOAD PORTS WITH CHARACTER 
017160 104412 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
017162 122110 122110 :LOAD OUT DATA 
017164 006737 030260 JSR PC,OCOR ‘WAIT FOR OCOR TO SET 
017170 104413 000002 DATACLK, 2 :2 TICKS TO SET UP TRANSMITTER 
017174 005003 4$: CLR R3 :CLEAR BIT COUNTER 
017176 010502 MOV R5,R2 LOAD CHARACTER IN R2 
017 1 413 000001 1$: DATACLK, 1 *SHIFT NEXT BIT IN THE WINDOW (SI BIT) 
1 1 RORB =s-_-R2 “SHIFT NEXT SOFTWARE BIT IN TO CARRY 
017206 103005 BCC 2$ “BR IF CARRY CLEAR 
017210 004737 030226 JSR PC,GETSI [GET THE Wi 
017214 103406 BCS 3$ :BR IF BIT IS A MARK 
017216 104006 ERROR sERROR BIT WAS A SPACE 
017 000404 BR 3$ sCONTINE WITH TEST 
017222 004737 030226 2$: JSR PC,GETSI :GET THE Wl 
017 103001 8 3$ -BR IF BIT IS A SPACE 
017230 104006 ERROR 6 :ERROR BIT WA 
ores 3$: 
01 005203 INC R3 :NEXT BIT 
017234 022 03 000010 CMP #°0,23 :DONE YET? 
017240 001357 BNE 1$ :BR IF NO 
017242 005204 INC Ro :NEXT CHARACTER 
017244 37 030412 JSR PC ,OUTROY :WAIT FOR OUT-READY 
017250 010461 000004 MOV R4,4(R1) : LOAD PORTS WITH CHARACTER 
01 104412 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
017256 122110 122110 :LOAD OUT DAT 
017 005205 INC R5 :NEXT CHARACTER 
017 022705 000400 CMP #400,R5 :DONE YET? 
017266 001342 BNE 4$ :BR IF NO 
017270 5$: 


peeeeaeeereterereeeereereene TEST 24 eteteererererererseeerenees 


: #DDCHP STRIP SYNC TEST 
‘*SET LU LOOP, SINGLE STEP S SYNCS 
“eVERIFY THAT IN ACTIVE DOES NOT SET 
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BASIC RECEIVER TESTS 


htt RRR RRR R RRR RRR R RRR R SELES ESE EEE SERRE EEE EEE EE EES 


; TEST 24 


peuseesuessegaeconserenecorensseonnnesaneeorecceseseceoeccceoss 


SCOPE 
MOV #24,$TSTNM ; LOAD THE NO. OF THIS TEST 
MOV #TST25,NEXT POINT TO THE START OF NEXT TEST. 
:R1 CONTAINS BASE KMC11 ADDRESS 
MSTCLR MASTER CLEAR KMC11 
MOV #B1T11,(R1) Set L LOOP 
MOV #12,R2 SAVES tu REG FOR TYPEOUT 
JSR PC, SYNC :SINGLE CLOCK 5 SYNC CHARACTERS 
DATACLK, 54 
:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
Gaizee *PORT4 LU12 
4(R1) ,R4 ;PUT "FOUND'’ IN RG 
Bit #277, RG UNWAN 
CLR R5 :PUT EXPECTED’ IN RS 
CMPB sR, RG :1S§ ACTIVE CLEAR? 
EQ 1$ -BR IF YES 
ERROR 40 sERROR ACTIVE IS NOT CLEAR 


seeekekereieeeeceeeeeeeeeree TEST 25 seeneneeececeneeeenraeeaenens 
;*DDCMP IN ACTIVE TEST 

:*SET LU LOOP, SINGLE STEP 5 SYNCS AND A NON-SYNC (301) 

*vraren THAT IN ACTIVE IS SET 


PARRA RSARAALAAAARASASLESLESEL ELSE REE E RSET SESE REESE EEE EER EE RSS 


; TEST 25 


‘Eee e RRP RRARARRRRSSLARELARE ERE RESELLER ESE LEASES ERE ERE RE RR ES GS 


SCOPE 

MOV #25, $TSTNM ; LOAD THE NO. OF THIS TEST 

MOV #tst26, NEXT POINT TO THE START OF NEXT TEST. 
:R1 CONTAINS BASE KMC11 ADDRESS 

MSTCLR :MASTER CLEAR KMC11 

MOV #B1T11,<R1) :SET LU LOOP 

MOV #12,R2_ “SAVE LU REG FOR TYPEOUT 

JSR PC, SYNC >SINGLE CLOCK 5 SYNC CHARACTERS 

DATACLK, 64 : 

ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

021244 : PORTS 

MOV 4(R1),R4 sPUT ‘FOUND'' IN a 

BIC #277 RG CLEAR UNWANTED 8 j 

MOV #BITS RS EXPECTED IN RS 

CMPB sR, RG 1S active Users 

BEQ 1$ YES 

ERROR 40 ERROR ACTIVE IS NOT SET 


OO LS ES —- —_— - -—— = ee — — 








CZKCF =MACY11 30A(1052) OB-JUL-80 08:27 PAGE 77 
CZKCF P11 08-JUL-80 08:24 BASIC RECEIVER TESTS SEQ 0076 
3800 peeeeneeeeretererecreeeeeeaae TEST 26 seeeenaneretaneaeeaeareenes 
3801 :*DDCMP IN ACTIVE TEST 
3802 :*SET LU LOOP, SINGLE STEP 1 SYNC AND A NON-SYNC (301) 
3803 ;*VERIFY THAT IN ACTIVE DOES NOT SET 
3804 ‘OPA RA RA RARRRRARARRRRRRERAR ESLER EL ESE RRS ELEC EEE SEER ER EERE ERE E ETS | 
3805 
sane ; TEST 26 
3808 PITITITITILILILILI LITT LI LLL LILI LLLLi LLL iLL iiiiiiiiiiiiiiiiiee 
3809 017446 000004 TST26: SCOPE | 
3810 017450 012737 202 MOV #26,$TSTNM ; LOAD THE NO. OF THIS TEST | 
5811 017456 012737 O175 : 001463 MOV #1ST27 NEXT ; POINT TO THE START OF NEXT TEST. | 
3812 :R1_ CONTAINS gest KMC11 ADDRESS | 
3815 017464 104410 MSTCLR :MAST c CLEAR KMC11 | 
3814 017466 012711 004000 MOV #B1T11,(R1) ; SET LOOP | 
3815 017472 012702 000012 MOV #12,R2 SAVE. tu REG FOR TYPEOUT 
3816 017476 004737 030276 JSR PC,SYNC ;SINGLE CLOCK 1 SYNC CHARACTERS 
3817 017502 000001 1 
3818 017504 104413 000024 lly ol 24 
3819 017510 104412 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
3820 017512 021244 02166 :PORT4 LUI2 
3821 017514 016104 000004 4(R1) ,R4 T FOUND N RG 
3822 017520 042704 000277 BIC #277 ,R4 eth LEAR UNWANTED BITS 
3825 017524 005005 CLR R5 :PUT “EXPECTED IN R5 
3824 017526 120504 CMPB R5,R4 :1S ACTIVE CLEAR? 
3825 7530 001401 1$ :BR IF YES | 
3826 017532 104040 ERROR 40 sERROR ACTIVE IS NOT CLEAR 
i 017534 1$: 
38 
38 seeeerareereertrereeeeeeeaer TEST 27 seeneceecercanerarantereete 
3831 :*DDCMP IN ACTIVE TEST 
3832 :*SET LU LOOP, SINGLE STEP . prs AND A NON-SYNC (301) 
3835 :*VERIFY THAT IN ACTIVE IS 
3834 RANULG ALUeUTEATEERTE GERAD ebddaaks ded enivereDeroecetereontes 
3835 
sase é TEST 27 
3838 SE RRARARAAAAAATAAAEAETAAAEKEAAAE ee ATeReeeAeeAeeeeeKeeeeReeereeer 
tH 017534 000004 TST27: SCOPE 
017536 012737 000027 001202 MOV #27, ; Lone ye NO. OF THIS TEST 
3841 017544 0127357 017624 001442 etsi NEXT BOINT TO THE START OF NEXT TEST. 
sack RI CONTAINS — KMC11 ADDRESS | 
3845 017552 104410 sMASTER CLEAR KMC11 
3844 017554 012711 004000 ae o(R1) sSET LU LOOP 
3845 017560 012702 Oreo e :SAVE LU REG FOR TYPEOUT 
017 004737 030276 PC SYNC sSINGLE CLOCK 2 SYNC CHARACTERS 
7 0175 90000¢ 2 | 
1757 bead 000034 DATACLK, 34 | 
9 7576 104412 Oot eke ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 | 
3850 017600 021244 021244 SPORTS LUT2 | 
51 017602 016104 000004 MOV 4(R1) ,R4 ‘FOUND 
3852 017606 042704 000277 BIC =: #277, R4 CLEAR UMMANTED 8 - | 
3853 017612 012705 000100 MOV #B116,R5 EXPECTED"? IN RS | 
3854 017616 120504 CMPB RS, RG :1S acTIVE SET? | 
55 017620 001401 BEQ 1$ BR IF YES | 


a 





MACY11 Ke cris 08:27 PAGE 7 


8 
BASIC RECEIVER TESTS 


f 
F.P11 08-JUL-80 0 SEQ 0077 
3856 017622 104040 ERROR 40 ;ERROR ACTIVE IS NOT SET 
3857 017624 
3858 
3859 
3860 seekeeeeeeetenetereeeaeeneee TEST 30 seeeeerenaaeaceeeeneeentane 
3861 :*IN CLEAR TEST 
3862 i #SYNC A RECEIVER AND TRANSMIT A CHARACTER 
3865 seWAIT FOR IN RDY, THEN SET IN CLEAR 
3864 s*VERIFY THAT IN ACTIVE AND IN RDY ARE CLEARED 
3865 PPETTTITITISTITTILTITITITTLITTIT ILI ELLIE TTT LITT eTTiie 
3866 
3867 ; TEST 50 
3869 ‘ :deabReSaaLAneheaehannsadeneesseeensersecedeocencececeeccceccees 
3870 017624 000004 TST30: SCOPE 
3871 Otek 012737 000030 001202 MOV #30,STSTNM ; LOAD THE NO. OF THIS TEST 
3872 0176 012737 017776 001442 MOV #TST31 NEXT ; POINT TO THE START OF NEXT TEST. 
3873 7R1 CONTAINS ye KMC11 ADDRESS 
3874 017642 104410 MSTCLR “MASTER CLEAR KMC11 
3875 017644 012702 000012 MOV #12, ;SAVE REG ADDRESS IN R2 FOR TYPEOUT 
3876 017650 012711 004000 MOV #B1T11,(R1) SET LINE UNIT LOOP 
3877 017654 004737 030444 JSR PC,C LOAD SILO oh 3 SYNCS 
3878 7660 000301 301 ;AND A MON-SYNC (301) 
3879 017662 104413 000053 DATACLK, 53 a CLOCK THE DATA 
3880 AES 104414 000002 TIMER, WALT FOR INRDY 
3881 017672 104412 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
3 oT ere ofoi0e — 4(R1) ,R4 spon * IN R4 
338 17908 043704 357 BIC #357 ,R4 ; CLEAR UNWANTED BITS 
3885 017706 012705 000020 MOV #BIT4 RS “EXPECTED'’ IN RS 
3886 017712 120504 CMPB R5,R4 3t$ INRDY Peer? 
3887 017714 001401 BEQ 1$ 
3888 017716 104040 ERROR 40 sERROR, INRDY IS NOT SET 
3889 017720 1$: 
3890 017720 012761 000200 000004 MOV #B1T7,4(R1) sLOAB PORTS 
3891 017726 104412 INEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
3892 017730 122112 :SET IN CLEAR 
3893 017732 104412 sNEXT WORD fs INSTRUCTION, ROMCLK PC=5304 
3894 017734 021244 ;PORT4 LU 1 
3895 017736 016104 000004 4(R1) RS :PUT ‘FOUND’ I 
3896 017742 042704 000277 im sete UNWANTE 
3897 017746 005005 R :PUT ‘EXPECTED’ IN RS 
3898 017750 120504 R5,R4 3:18 IN ACTIVE CLEAR? 
3899 017752 001401 2$ 
tone dhe» 104040 a 40 sERROR, IN ACTIVE IS NOT CLEAR 
$003 017756 016104 000004 MOV 4(R1),R4 PUT ‘‘FOUND'’ IN R 
3903 017762 042704 000357 BIC = #357, R4 : CLEAR. UNWANTED BITS 
3904 0177 005005 CLR . :PUT “EXPECTED'' IN RS 
3905 017770 120504 CMPB R5,R4 ;1S INRDY CLEARED? 
Sone 017772 001401 BEQ 3$ 
017774 104040 ERROR 40 SERROR, INRDY IS NOT CLEARED 
Sone 017776 3$: 


3911 








peeeeeeretetereeererereceeee TEST 3] caneenereeeeeeerecereerenes 
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KCF P11 08-JUL-80 08:24 BASIC RECEIVER TESTS SEQ 0078 


+ *DDCMP wth RECEICER TEST 
*SYNC U vauat teva AND SINGLE CLOCK THE CHARACTER 0 
:sVERIEY THAT IN ROY IS SET, AND THAT THE CHARACTER WAS RECEIVED 


SRRHRAROREREREREREREETEREREARHEHEERERER EERE REE EREReeeeeeeneees 


; TEST 31 
TTTITITITILIIITILILILI LILI LI LITT iLL iti iii iii iiTitiTTiee 
017776 000004 1ST31: SCOPE 
020000 012737 000031 001202 MOV #31, $TSTNM LOAD THE NO. OF THIS TEST 
020006 012737 020112 001442 MOV #TST32,NEXT POINT TO THE START OF NEXT TEST. 
:R1 CONTAINS BASE KMC11 ADDRESS 
020014 104410 MSTCLR ‘MASTER CLEAR KMC11 
020016 012702 000012 MOV #12,R2 *SAVE REG ADDRESS IN R2 FOR TYPEOUT 
020022 012711 004000 MOV #BIT11, (R1) “SET LINE UNIT L 
020026 004737 030444 JSR PC, CHAR OAD. SILO rif 3 SYNCS 
020032 000000 0 :AND THE CHARACTER 0 
020034 104413 000053 DATACLK, 53 i SINGLE clock THE DATA 
020040 104414 000002 TIMER, ; ALT FOR 
020044 104412 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
020046 021244 021244 :PORTS LU 12 
020050 016104 4 MOV 4(R1) RS ;PUT ‘FOUND’ IN R4 
020054 042704 000357 BIC #357,R4 :CLEAR UNWANTED BITS 
020060 012705 20 MOV #B1T4 RS :PUT PENPECTED"” IN RS 
020064 1205 CMPB sR, RG :1S INRDY SET? 
020066 001401 BEQ 1$ 
020070 10404 re ERROR 40 sERROR, INRDY IS NOT SET 
ites 104412 ROMCLK :NEXT WORD 1S INSTRUCTION, ROMCLK PC=5304 
020074 021204 021204 PORTS IN DAT 
020076 016104 000004 MOV 4(R1) RG “PUT ‘FOUND’: ' R4 
020102 005005 CLR R5 :PUT EXPECTED’ IN RS 
020104 120504 CMPB sR. RG sWAS A 0 RECEIVED? 
020106 001401 BEO 
020110 104010 ERROR 10 sERROR, RECEIVED DATA IS WRONG 
020112 2$: 
peeeaneareceeneneecateeeiane TEST 32 seeenaeeeneenerereerenerene 
; *DDCMP BASIC RECEICER TES’ 
:#SYNC UP RECEIVER AND SINGLE CLOCK THE CHARACTER 125 
seVERIFY THAT IN RDY IS SET, AND THAT THE CHARACTER WAS RECEIVED 
hoe Pehl Bre AI tle Sine, Mae on Showman ds olny dine vet bees 
‘ TEST 32 
MERBREAALELALALLELLELE REEL ELE RARE EEL ERR EER A EEE ARERR RRR REE RR AR AEE SO 
020112 000004 1S132: SCOPE 
020114 012 000032 001202 MOV gistwe ; LOAD THE NO. OF THIS TEST 
020122 012 020230 001442 MOV aret 3 NEXT POINT TO THE START OF NEXT TEST. 
RI CONTAINS BASE KMC11 ADDRESS 
020130 MSTCLR MASTER CLEAR KMC1 
020132 000012 MOV #12,R2 : SAVE REG ADDRESS IN R2 FOR TYPEOUT 
020136 004000 MOV #BIT11,(R1) SET LINE UNIT LOOP 
020142 030444 JSR PC, CHAR :LOAD SILO WITH $3 SYNCS 
020146 125 "AND THE CHARACTER 125 








TT Lt nates Aerts = SS Cee 
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3968 020150 104413 000053 DATACLK, 53 s SINGLE CLOCK THE DATA 
3969 020154 104614 000002 TIMER, 2 ;WAIT FOR INRDY 
3970 020160 104412 ROMCLK s;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
3971 020162 021244 021244 :PO 4 LU Af 
3972 020164 016104 000004 MOV 4(R1) ,R4 ;PUT ‘FOUN ;?. 
3973 020170 042704 000357 BIC #357,R4 CLEAR UMGANTED 
3974 020174 012705 000020 MOV = #BIT4,R5 EXPECTED" IN RS 
3975 020200 120504 CMPB R5,R4 :1S INRDY SET? 
3976 020202 001401 BEQ 1$ 
3977 020204 104040 ERROR 40 ;ERROR, INRDY IS NOT SET 
3978 020206 1$: 
3979 020206 104412 ROMCLK ;NEXT WORD +e INSTRUCTION, ROMCLK PC=53504 
3980 020210 021204 021204 ;PORT4 IN DAT 
3981 020212 016104 000004 MOV &(R1) ,R4 :PUT ‘FOUND’ t R4 
5982 020216 012705 000125 MOV #125,R5 ;PUT “'EXPECTED’’ IN R5 
3983 020222 120504 C R5,R4 ;WAS A 125 RECEIVED? 
984 020224 001401 BEQ 2$ 
3985 020226 104010 ERROR 10 ;ERROR, RECEIVED DATA IS WRONG 
3986 020250 2$: 
Ht 
3989 peeeeeeeeereeeerereaeeerenae TEST 335 seeteneaeeeeenereeeeererete 
3990 ;*DDCMP BASIC RECEICER TEST 
3991 >*SYNC UP RECEIVER AND SINGLE CLOCK * CHARACTER 252 
3992 s*VERIFY THAT IN RDY IS SET, AND THAT THE CHARACTER WAS RECEIVED 
3993  PEDLerdaeadhasa veceutattcnennenetsaaetettentircateene 
3994 
Sooe s: ¥8$t 33 
3997 PPITITITI LILLIE T eee ete eee 
3998 020230 00004 TST33: SCOPE 
3999 020232 012737 000033 001202 MOV #33, STSTNM ; Se dl " NO. OF THIS TEST 
4000 020240 0127357 020346 001442 MOV #TST34,NEXT POINT TO THE START OF NEXT TEST. 
4001 ;R1_ CONTAINS BASE KMC11 ADDRESS 
4002 020246 104410 ;MASTER CLEAR KMC11 
4003 020250 012702 000012 #12,R2 :SAVE REG egy IN R2 FOR TYPEOUT 
4004 020254 012711 004000 wB1T11,(R1) — 3SET LINE UNIT LOOP 
4005 020260 004737 030444 PC, CHAR TOAD. SILO Siar Zo SYNCS 
020264 000252 ;AND THE CHARACTER 252 
4007 020266 104413 000053 53 : SINGLE CLOCK THE DATA 
020272 104414 000002 ;WAIT F DY 
020276 104412 ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
4010 020 021244 oor LU 12 
4011 020302 016104 000004 4(R1) ,R4 T ‘FOUND'’ IN on 
4012 este 042704 000357 #357 ,R4 CLEAR UMAANTED 6 
4013 020312 012705 000020 114, R5 1 SEXPECTED" IN RS 
4014 020316 120504 RD ,R4 71S INRDY ser 
4015 020320 001401 1$ 
4016 be0 ase 104040 40 sERROR, INRDY IS NOT SET 
4017 OSheSe 1$: 
4018 0203524 104412 :NEXT WORD iS INSTRUCTION, ROMCLK PC=5304 
19 ta te43 021204 ;PORT4 IN DAT 
20 020330 016104 000004 4(R1) ,R4 ;PUT "FOUND" TN 4 
4021 020334 012705 000252 #252 R5 :PUT EXPECTED" IN RS 
4022 020340 120504 R5,R4 ;WAS A 252 RECEIVED? 
4023 020342 001401 2$ 
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4024 020344 104010 ERROR 10 ;ERROR, RECEIVED DATA IS WRONG 
4025 020346 2$: 
4026 
4027 
4028 peeeaaeeeeeeerereeeeeeeeneee TEST 34 saaenenaaeeaneaeaeeareerane 
4029 :*DDCMP BASIC RECEICER TEST 
4030 ;*SYNC UP RECEIVER AND SINGLE CLOCK THE CHARACTER 377 
4031 :*VERIFY THAT IN RDY IS SET, AND THAT THE CHARACTER WAS RECEIVED 
tpt SRA ARERR RETREAT RARER EAEEERE EERE ETE TERETE ee 
4034 ; TEST 34 
We i aici cleric irate 
4036 PETTISITITITITILILLLTLILELEL ITIL LTT iii titi itiie rte 
1038 §50380 S293? 000034 001202 vets #34,STSTNM 
N ; LOAD THE NO. OF THIS TEST 
4039 0203556 012737 020464 001442 #TST35, NEXT ; POINT TO THE START OF NEXT TEST. 
4040 :R1 CONTAINS a tae KMC11 ADDRESS 
4041 020364 104410 :MASTER CLEAR KMC11 
4042 020366 012702 000012 #12,R2 ;SAVE REG ADDRESS IN R2 FOR TYPEOUT 
4043 020372 012711 004000 #B1T11,(R1) : SET LINE UNIT LOOP 
4044 020376 004737 030444 PC ,CHAR ; LOAD SILO WITH 3 SYNCS 
4045 020402 000377 ;AND THE CHARACTER 377 
4046 020404 104413 000053 53 : SINGLE CLOCK THE DATA 
4047 020410 104414 000002 ;WAIT FOR INRDY 
4048 020414 1 :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
4049 020416 021244 PORTS LU 12 
1081 050454 545706 000357 assy Ra CLEAR OMGANTED 11 TS 
4052 350280 845708 000020 #B1T4 RS EXPECTED’ IN R5 
4053 020434 120504 R5,R4 zI1S INRDY PSET? 
208s Op0440 104040 40 JERROR, INRDY IS 
: Y NOT SET 
1089 o50445 104412 :NEXT WORD : T 53 
x INSTRUCTION, ROMCLK PC=53504 
4058 020444 021204 ;PORT4 IN DAT 
4059 020446 016104 000004 4(R1) RS sur “POUND'' 1 R4 
4060 020452 012705 000377 #377,R5 “EXPECTED IN RS 
4061 020456 1205 R5,R4 SUAS A 377 RECEIVED? 
020460 001401 25 
40635 020462 104010 10 SERROR, RECEIVED DATA IS WRONG 
4064 020464 23: 
4065 
4066 
4067 seeeeeeeerertereteecereaeeen TEST 35 eeceeeeenenererereerereeene 
4068 :*DDCMP DATA TEST 
4069 s*THIS TEST SINGLE STEPS A BINARY COUNT PATTERN 
4070 s*CHECKING EACH CHARACTER AS IT IS RECEIVED 
pr ial s REAR ARAEKT ETAT AHAAATHERETARAAE RARER ARAAERA KAT eee eeeee eee ede 
4 
4073 ; TEST 35 
s RAR A ATA AAAAAAA AAAS ATA A TAA A LATA KAT AAA RAAT eee eA eee eeKeeeeee 
4076 020464 000004 TST35: SCOPE 
4077 020466 012737 000035 001202 MOV #35,STSTNM One THE NO. OF THIS TEST 
4078 020474 012737 020614 001442 MOV #TST36,NEXT : POINT TO THE START OF NEXT TEST. 


4079 RI CONTAINS BASE KMC11 ADDRESS 


Se 


Rene neem 


en eee ees ee 





oe 
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4080 020502 104410 MSTCLR ;MASTER CLEAR KMC11 

4081 020504 005037 031062 CLR SCHAR ;START BINARY COUNT AT ZERO 

4082 020510 005037 031064 CLR STUFLG : CLEAR BITSTUFF FLAG 

4083 020514 Ett CLR R2 sR2 IS "‘EXPECTED’’ DATA 

4084 020516 012703 000073 MOV #73,R :R3 1S CHARACTER COUNT 

4085 020522 012711 004000 MOV reittt, R1) ;SET LINE UNIT LOOP 

4086 peoags 004737 03062 JSR PC,S ILOLD LOAD SILO WITH COUNT PATTERN 

4087 020532 104413 00004 DATACLK, 43 :SYNC RECEIVER m4 eT IT ACTIVE 

4088 020536 104413 000730 1$: DATACLK, CLOCK IN ¢. CHARACTERS 

4089 020542 004737 031066 4$: JSR PC, INRDY ;WALT FOR INRDY 

4090 020546 104412 ROMCLK ;NEXT UORD. +o INSTRUCTION, ROMCLK PC=5304 
4091 020550 021204 021204 :PORT4 IN Bn 

4092 020552 016104 000004 MOV 4(R1),R4 T 'FOUND'’ IN R4 

4093 020556 010205 MOV R2,R5 ‘PUT VEXPECTED™ IN R5 

4 205 120504 CMPB R5,R4 :1S ie CORRECT? 

4095 020562 001401 BEQ $ ;BR YES 

4096 020564 104010 ERROR 10 ATA ERROR 

4097 020566 005202 2$: INC R2 ‘NEXT CHARACTER 

4098 020570 022702 000400 CMP #400,R2 sALL DONE? 

4099 020574 001407 BEQ 3$ ;BR IF YES 

4100 020576 005303 DEC R3 ;DECREMENT yg ‘COUNT 

4101 020600 001360 BNE 4$ “BR IF SILO NOT 

4102 020602 004737 030622 JSR PC,SILOLD ;LOAD SILO WITH MORE. OF COUNT PATTERN 
4103 020606 012703 000073 MOV #73,R3 :RELOAD CHARACTER COUNT 

4104 020612 000751 BR 1$ ; CONTINUE 

4105 020614 3$: 

99 

4108 seeeeeeeererereereneereceare TEST 36 senaeecenaraeneeecerereeeense 
4109 *DDCMP DATA TEST 

4110 + *THIS TEST SINGLE STEPS A BINARY COUNT PATTERN 

4111 s*CHECKING EACH CHARACTER AS IT IS RECEIVED 

4112 = *THIS TEST IS EXACTLY THE SAME AS THE LAST TEST, 

4113 : #EXCEPT LINE UNIT LOOP IS SET IN LU REGISTER 12 

4116 SRARREASECARETESTAAAARAARERARAARAEAEARAEEEAAAERERARARAARARAETARAAETES 
4115 

rete : TEST 36 

4118 SERRA AAAARAAAAAERERARATAARAREAAAAERAAARAAARAAARAARAARAAReAAAe REE 

4119 020614 000004 TST36: SCOPE 

4120 020616 012737 000036 001202 MOV #36,STSTNM ; LOAD THE NO. OF THIS TEST 

4121 020624 012737 020754 001442 MOV #TSt37, NEXT POINT TO THE START OF NEXT TEST. 
4122 rR CONTAINS BASE KMC11 ADDRESS 

4123 020632 104410 MSTCLR “MASTER CLEAR 

4124 020634 005037 031062 CLR SCHAR ;START BINARY COUNT AT ZERO 

4125 020640 005037 031064 CLR STUFLG ;CLEAR BITSTUFF FLAG 

4126 020644 005002 CLR R :R2 IS ‘EXPECTED’: DATA 

4127 020646 012703 000073 MOV #73,R3 :R3 IS CHARACTER COUNT 

4128 020652 005011 CLR (R1) ;CLEAR LU LOOP IN MAINT REG 

4129 020654 012761 000040 000004 MOV #B1T5,4(R1) ;LOAD PORT4 . 
4130 0 104412 ROMCLK sNEXT WORD IS “wily Tee ROMCLK PC=5304 
4131 0O Aceits 122112 :SET LU LOOP IN LU R wad 

41 0 1 oY 030622 JSR PC,SILOLD LOAD SILO WITH COUNT P TTERN 

4133 020672 104413 000043 DATACLK, 43 :SYNC RECEIVER = GET N ACTIVE 

4134 020676 104413 000730 1$: DATACLK, 730 CL OCK IN 73 CHARACTERS 

4135 020702 004737 031066 4$: JSR PC, INRDY “WAIT FOR INRDY 


RE en ESE AR eee = ee tet he et ee — 
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020706 104412 ROMCLK sNEXT WORD +h INSTRUCTION, ROMCLK PC=5304 
020710 021204 021204 bd 14 IN Bn 
020712 016104 000004 MOV 4(R1), RG ‘FOUN 
020716 010205 MOV R2,R5 ‘BUT NEXPECTED 1" R5 
020720 120504 (MPB R5,R4 :1S DATA CORRECT? 
020722 001401 BEQ 2$ “BR IF YES 
020724 104010 ERROR 10 :DATA ERROR 
020726 005202 2$: INC R2 :NEXT CHARACTER 
020730 022702 000400 CMP #400,R2 “ALL DONE? 
020734 001407 BEQ 3$ ;BR IF YES 
020736 005303 DEC R3 ;DECREMENT pcg Ul COUNT 
020740 001360 BNE 4$ “BR IF SILO NOT EMPTY 
020742 004737 030622 JSR PC,SILOLD ;LGAD SILO WITH MORE OF COUNT PATTERN 
020746 012703 000073 MOV #73,R3 “RELOAD CHARACTER COUNT 
920752 000751 BR 1$ : CONT INUE 
020754 3$: 
seeeeeeketeeetreeeeeeeeerane TEST 37 saeeanneaeaacarenareraeenes 
: «TRANSMITTER MARK TEST 
>*SINGLE CLOCK 3 SYNCS AND A 301 AND 20 EXTRA 
**CLOCK TICKS, VERIFY THAT A 301, A 377 AND A 377 
my E RECEIVED ewe THAT THE TRANSMITTER WENT 
*TO A MARK STATE FOR 16 BITS WHEN OUT SILO WAS EMPTY 
SRARAEAAKLERSEALAATASEKKAACAAAAATEARAARAAKAKEREAERAEAEARERERAAREEKEKAEEEE 
s Fest 3? 
MPTITITITITITI TIT TIT LITT LITT LILITTLiTiiTitiiii Titi titi iiTtit ite 
020754 000004 1S137: SCOPE 
020756 012737 000037 001202 MOV #37, STSTNM : Lo THE NO. OF THIS TEST 
020764 012737 021114 001442 MOV #TST40,NEXT > POIN T TO THE START OF NEXT TEST. 
zR1 CONTAINS Bo KMC11 ADDRESS 
020772 104410 MSTCLR “MASTER CLEAR KMC11 
020774 012711 004000 MOV #BIT171,¢(R1) ;SET LINE UNIT LOOP 
021000 004737 030444 PC, CHAR s LOAD SILO WITH 3 SYNCS 
021004 000301 A 301 
21006 104413 000073 73 “CLOCK THE 301 IN AND 20 EXTRA TICKS 
021012 004737 031066 PC, INRDY “WAIT FOR INRDY 
021016 104412 :NEXT WORD 47 INSTRUCTION, ROMCLK PC=5304 
021020 021204 :PORT4 IN DATA 
021022 016104 000004 4(R1) ,R4 :PUT FOUND" IN RG 
021026 012705 000301 #301,R5 ‘PUT ‘EXPECTED’ IN RS 
021032 120504 R5,R4 “WAS A 301 RECEIVED? 
021034 001401 1$ 
021036 104010 10 7 ERROR FIRST CHARACTER INCORRECT 
021040 004737 031066 1$: PC, INRDY sWAIT FOR 
021044 104412 :NEX XT WORD 3 INSTRUCTION, ROMCLK PC=5304 
021046 021204 :PORT4 IN DAT 
021050 016104 000004 4(R1) ,R4 :PUT "'FOUND' IN 
021054 012705 000377 #377,R5 :PUT ““EXPECTED'’ IN RS 
021060 120504 R54 “WAS A 377 RECEIVED? 
021062 Rete 2$ 
021064 104010 10 s ERROR “af Ra NOT RECEIVED 
021066 004737 031066 2$: PC, INRDY “WAIT FOR 
021072 104412 > NEXT UORD. s INSTRUCTION. ROMCLK PC=5304 
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419 031076 021204 
4195 021076 016104 
4194 021102 012705 
4195 Oo og 120504 
4196 021110 001401 
4197 021112 104010 
4198 021114 
4199 
4200 
4201 
420 
420 
4204 
4205 
4206 
4207 
4208 
4209 
4210 
4211 021114 04 
4212 021116 012737 
ra 021124 012737 
4215 021132 104410 
4216 021134 032737 
4217 021142 001 
4218 021144 032737 
re dh Og 13¢ 001473 
4220 021154 005011 
4221 021156 012761 
4222 021164 104412 
4223 021166 122113 
4224 021170 104414 
4225 021174 104412 
4226 021176 021264 
4227 021200 016104 
4228 021204 042704 
4229 021210 012705 
4230 021214 032737 
4231 021222 001402 
rt 021224 042705 
4234 021230 032737 
‘a 021236 001402 
4237 021240 042705 
4238 021244 
4239 021244 020504 
4240 021246 001401 
4241 
4242 
42435 021250 104011 
4244 021252 005061 
4245 021256 104412 
4246 021260 122113 
4247 021262 104414 





000004 
000377 


000040 
021342 


020000 
040000 


000100 


000002 


000200 


000004 


000002 





001202 
001442 


002050 
002050 


000004 


002050 


002054 
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BASIC RECEIVER TESTS 


3$: 


021204 
MOV 
MOV 
CMPB 
BEQ 
ERROR 


ours IN aie 


4(R1) ,R4 T ‘FOUN 4 

#377,R5 ‘PUT MEXPECTED" IN R5 

2" “WAS A 377 RECEIVED? 

10 ERROR, 177 WAS NOT RECEIVED 


seeeeeeneeeereeeererereacaae TEST 60 seeaaaaaaeaaaeeeneeneeennne 
;*CABLE TURNAROUND TEST 

;*CLEAR LINE UNIT LOOP, SET DTR 

:*VERIFY THAT RING AND "MODEM READY ARE SET 

;*CLEAR DTR, VERIFY THAT RING AND MRDY ARE CLEARED 


ETT TTI TITTLE TET ITLL LTTE LTTE EEE TTT TTT TTT 


; TEST 40 


. 
FREER AAA REAR AEA EEE AEA EREREREKEKKEKES 


TST40: 


3$: 


1$: 


SCOPE 
MOV 
MOV 
MSTCLR 


#40, STSTNM : LOAD THE NO. OF THIS TEST 
#TST41 NEXT POINT TO THE START OF NEXT TEST. 
;R1 CONTAINS BASE KMC11 ADDRESS 
:MASTER CLEAR KMC11 
#BI1T13,STATI :I1S LINE UNIT M8202? 


a “BR IF YES (DO TEST EVEN IF NO LOOP-BACK CONN) 
WBIT14,STAT1 | :1S TURNAROUND CONNECTOR ON? 
2$ ; SKIP TEST IF NO 
(R1) LEAR LINE UNIT LOOP 
#100,4(R1) “LOAD PORT4 
“NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

: :SET DTR 

NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
4(R1) RS > PUT FOUND IN R4 +++4NEW 
#23,R4 > CLEAR JUNK 
#310.R5 : GET EXPECTED. 
#B1Ti3,sTaTt : IS LINE UNIT M8202? 
#B1T7,R5 : NO RING ON M8202 
#B1T2,STATS : IS THIS v. 35 MODEM? 
3$ > NO THEN GO AHEAD. 
#B1T7,R5 : YES-NO RING ON V.35 MODEM 
R5,R4 ; ARE RING AND EM READY SET? 
1$ : WARNING! IF V.35 AND AUTO STARTED. 

; YOU WILL GET THis ERROR. YOU MUST 

: MANUALL NASWER THE QUESTIONS FOR V.35. 
11 ERROR. RING OR MRDY NOT SET 
&4(R1) “CLEAR PORTS 

"NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

, “CLEAR DIR 
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000004 
000023 


020000 


000010 
000004 


000200 


000041 
021536 
020000 
040000 
004000 
000100 
000002 
000001 
031530 


000050 


000004 


002050 


002054 


001202 
001442 


002050 
002050 


000004 


000004 
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85 
BASIC RECEIVER TESTS 


<$: 


2$: 


4(R1) ,R4 
#23,R4 


R 
a » STAT 


#B1T3,R5 
rt ae »STATS 


#BI1T7,R4 
R4,R5 
2$ 


11 


; WARNING! 


+++NEW 


; SET EXPECTE 


IS THIS A M8202? 


YES THEN EXPECT MRDY SET. 
IS THIS V.35? 


; ARE RING AND MRDY CLEAR? 


YOU MAY GET THIS ERROR IF V.35 


; AND AUTOSTART. YOU MUST MANNUALLY ANSWER 
; ALL QUESTIONS IF V.35. 


;ERROR, RING OR MRDY NOT CLEAR 


seeeeeeteeekereretecenaeeaae TEST 6] saateaearecacereeranereeeer 


> *CABLE TURNAROUND TEST 


;*CLEAR LINE UNIT LOOP, LOAD OUT DATA SILO 
i reaee THAT ALL MODEM SIGNALS ARE SET 


MARAE ARARRARASASALELALELESELESEL ELSE EE ETRE RES EERE RES EES EET SS 


WTTTTITITI LILLE TL LLL LETTE TTT TTT TTT TTT eT 


; TEST 41 

iST41: SCOPE 
MOV #41, STSTNM 
MOV #TST42 NEXT 
MSTCLR 
BIT #81115, STATI 
BNE 
BIT witts, STATI 
BEQ 
MOV #eB iit, CRI) 
MOV : #1 4(R1) 
122113 
TIMER, 2 
MOVs #1, 4(R1) 
ROMCLK 
122111 
JSR RS, MESLD 
MESDAT 
64. 
MOV #50,R0 
CLR (R1) 

23: 
ROMCLK 
021264 
MOV 4(R1),R4 


ct aS 


LOAD THE NO. OF THIS TEST 
INT TO THE START OF NEXT TEST. 


BO 
At CONTAINS BASE or! ADDRESS 


STER CLEAR KMC11 
LINE UNIT M8202? 

iF YES (00 TEST EVEN IF NO LOOP-BACK CONN) 

TURNAROUND CONNECTOR ON? 








art TEST IF NO 


T LINE any LOOP 


OAD PORT4 
NEXT wok IS INSTRUCTION, ROMCLK PC=5304 


: CLEAR ALL MODEM SIGNALS,EXCEPT DTR 
:LOAD PORTS 


;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


:SET SOM 


;FILL OUT DATA SILO 


sWITH 64 CHARACTERS 


;PREPARE FOR DELAY 
;CLEAR LINE UNIT LOOP 


;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sPORTS LUI3 


T ‘FOUND’ IN R4 


SEQ 0084 


A EEC I _ 
LY 


en 
—— 


SSS SSS sh SS st SS reg l-~ep- 
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4304 0214 042704 000023 BIC #23,R4 ;CLEAR UNWANTED BITS 
4305 951456 012705 000354 MOV Hath R5 : PUT "EXPECTED’’ IN R5 
4306 021474 032737 000004 002054 BIT Wits, STAT3 
4307 021502 001402 BEQ 
4308 tater 042705 000200 RIC #BIT7,R5 ; NO RING ON V,35 
4309 021510 4$: 
4310 021510 032737 020000 002050 BIT #B1T13,STAT1 i1S +N UNIT M8202? 
4311 021516 001402 BEQ +6 R NO 
4312 021520 042705 000200 BIC #BIT7,RS5 “NO Rl NG ON M8202 
4313 021524 120504 CMPB R5,R4 ;COMPARE EXPECTED AND FOUND 
4314 021526 001403 BEQ 1$ “BR IF OK 
4315 0215350 300 DEC RO ;DEC DELAY COUNT 
4316 021532 001350 BNE 2$ :BR IF NOT ZERO 
4317 021534 104011 ERROR 11 ERROR, ALi. SIGNALS ARE NOT SET 
4318 : WARNIN NG YOU MUST MANUALLY ANSWER QUESTIONS 
4319 ; IF YOU HAVE V.35. 
4320 021536 1$: 
4321 
4322 
3 pekeakeeeeeeerereeeeeeeeecan TEST 62 saeaeaanaaneaeeeaeaeaearenes 
3 *TEST OF CRC OPERATION 


;*USING THE CRC16 POLYNOMIAL, SINGLE CLOCK THe CHARACTER 
:*0, VERIFY THE LSB OF THE BCC ON EACH SHIFT 
:*TEST TRANSMITTER FIRST THEN THE RECEIVER BCC 


TTT TITITETETTITTILIT ELIT LITTLE TET EEE 


; TEST 42 

+ eReHeeReeeReeeeeeeeeneterteeeeteeeeeeeeeeeeeeeneeeeeeeeeeteeees 
000004 TS142: SCOPE 
012737 000042 001202 MOV #42, $TSTNM ; LOAD THE NO. OF THIS TEST 
012737 022052 001442 MOV #TST43, NEXT > POINT TO THE START OF NEXT TEST. 
012737 021570 001444 MOV #64$ LOCK > ADDRESS FOR LOCK ON DATA. 

:R1 CONTAINS BASE KMC11 ADDRESS 

104410 MSTCLR ‘MASTER CLEAR KMC11 
012711 004000 MOV #BIT11,(R1) :SET LU LOOP 
004737 031572 64$: JSR PC, CLRIO [CLEAR BCC REGISTERS 
005000 CLR RO :START SHIFT COUNTER AT ZERO 
012737 120001 031226 MOV #CRC16, XPOLY *LOAD POLYNOMIAL FOR SOFTWARE BCC 
012737 000000 021644 MOV 66$ [LOAD CHAR FOR SOFTWARE BCC 
005037 021646 CLR 67% ;CLEAR OLD SOFTWARE BCC 
004737 031232 JSR PC,BCCLD sLOAD OUT SILO WITH 2 SYNCS 
000000 0 SAND THE CHARACTER 
104413 000021 DATACLK, 21 :GET TRANSMITTER ACTIVE 
104413 000001 65$: —_— DATACLK, “SHIFT BCC ONCE 
005200 INC RO :BUMP SHIFT COUNT 
004557 031122 JSR RS, SIMBCC : CALCULATE SOFTWARE BCC LSB 
000000 66$: 0 ‘DATA CHARACTER 
000000 ia: 8 ‘OLD B 
103405 BCS 68$ ‘BR IF SOFT BCC LSB IS SET 
004737 031344 JSR PC, GETQO “GET HARDWARE TRANSMITTER BCC LSB 
103006 69$ ‘BR IF HARD BCC LSB IS CLEAR 
104012 ERROR 1 ZERROR. BCC LSB IS SET 


BR $ ; CONTI 
031344 68$: JSR PC ,GETQ0 ;GET HARDWARE TRANSMITTER BCC LSB 


= 
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022052 
022054 


022062 
022070 
022076 
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000004 
012737 
12737 
12737 
104410 


031232 


000032 
090001 


031122 


031556 
031356 


022000 
031230 
000010 


we me 


021646 


001444 


031226 
022000 


022002 
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I 


BASIC RECEIVER TESTS 


69$: 


718: 


72$: 


73$: 
74$: 


75$: 


768: 


77%: 


TS143: 


BCS 
ERROR 


DATACLK, 


69$ 
16 


66% 

CALBCC ,67$ 

#10,R0 

#71$,LOCK 

ee 

#CRC16,XPOLY 

#0,73$ 

74 

PC ,BCCLD 
32 
1 


RO 
RS,SIMBCC 


73$ 
CALBCC,74$ 
#10,R0 


7 


rr rr en re ee + es ee ee. —— rE eee eae <a = 
——=— _ - ~ - -—— —~ — 


;BR IF HARD BCC LSB IS SET 
;ERROR, HARD BCC LSB IS CLEAR 


;SHIFT SOFT DATA 
: LOAD ver SOFT BCC 


BR IF NOT DONE 
; SCOPE SUBTEST (SWO9=1) 
NEW SCOPE1 


‘cho BCC REGISTERS 
;START SHIFT COUNTER AT ZERO 
;LOAD POLYNOMIAL FOR SOF TWARE BCC 
;LOAD CHAR FOR SOFTWARE BCC 
; CLEAR OLD SOFTWARE BCC 

A SILO mea! SYNCS 


‘GET aE ig ACTIVE 
+ SHIFT 445 Bag 


; BUMP T COUNT 
:CALCULATE SOFTWARE BCC LSB 
;DATA CHARACTER 
T BCC LSB IS SET 


BCC LSB IS CLEA 
TERROR, BCC LSB IS SET 
: CONTI 


:GET HARDWARE RECEIVER BCC LSB 
3BR IF HARD BCC LSB IS SET 
sERROR, BCC LSB IS CLEAR 


SHIFT SOFT i 
;LOAD OLD SOFT BCC 
YET? 


:BR IF NOT DONE 
;SCOPE SUBTEST (SwO09=1) 


peeeaenereteateeeeaeererecece TEST 43 eeeneeeeeecerereeererereere 


seTEST OF CRC OPER 
ott) weni THE 


RIFY 
it TRANSMITTER 


Sg 


THE LSB OF THE 
FIRST THEN THE RECEIVER BCC 


ATION 
tok SINGLE CLOCK THE CHARACTER 
BC HIFT 


C ON EACH S 


ARE SAAARARSELALALALASAEE LAER LEA EE ARERR RARER ERR R ERS REAR EER RS DAD GS 


: TEST 43 


. 
5 PSK AAAAHKEAAAAAATAAA HATA TAK AHA AAAARARAARAARAARAAK eee eee eeeee 


SCOPE 


MOV 
MOV 


MSTCLR 


#43, STSTNM 
O1S144 NEXT 
#64%,L0CK 


; LOAD THE NO. OF THIS TEST 
: POINT TO THE START OF NEXT TEST. 
ADDRESS FOR LOCK ON DATA. 
contin BASE KACTI ADDRESS 


RI 
;MASTER 


SEQ 0086 


ee | ee 


ae LO ET CY TT TL A A ET NE TE LL TL Ts SS SSS -- _ - - 


Sa SI th - ee meme ve eee meee - Seana . 
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4416 og5100 012711 004000 MOV #B1T11,(R1) ;SET LU LOOP 

4417 022104 004737 031572 64$: JSR PC CLRID “CLEAR BCC REGISTERS 

4418 022110 005 CLR RO :START SHIFT COUNTER AT ZERO 

4419 02 112 012737 120001 031226 MOV aCRC16 XPOLY  :LOAD POLYNOMIAL FOR SOFTWARE BCC 

4420 022120 012737 000377 022160 MOV #377 668: “LOAD CHAR FOR SOFTWARE BCC 

4421 022126 005037 Oe2i62 CLR ? "CLEAR OLD SOFTWARE BCC 

4422 022132 004737 03123 JSR PC,BCCLD “LOAD OUT SILO WITH 2 SYNCS 

4423 022136 000377 377 ‘AND THE CHARACTER 377 

4424 022140 104413 000021 DATACLK, 21 “GET TRANSMITTER ACTIVE 

4425 022144 104413 000001 65$:  DATACLK. 1 “SHIFT BCC ONCE 

4426 022150 005200 INC R “BUMP SHIFT COUNT 

4427 022152 004537 031122 JSR RS,SIMBCC “CALCULATE SOFTWARE BCC LSB 

4428 022156 000001 1 “ONE SHIFT 

4429 022160 000000 66$: 0 “DATA CHARACTER 

4430 022162 000000 67$: 0 “OLD BCC 

4431 022164 103405 BCS 68$ “BR IF SOFT BCC LSB IS SET 

4432 022166 004737 031344 JSR PC,GETQO :GET HARDWARE TRANSMITTER BCC LSB 

4433 022172 103006 B 69$ :BR IF HARD BCC LSB IS CLEAR 

434 022174 104012 ERROR 1 “ERROR, BCC LSB IS SET 

4435 022176 000404 BR 69$ : CONT INUE 

4436 022200 004737 031344 68$: JSR PC ,GETQ0 :GET HARDWARE TRANSMITTER BCC LSB 

4437 022204 103401 BCS 69$ :BR IF HARD BCC LSB iS SET 

4438 022206 104016 ERROR 16 SERROR, HARD BCC LSB IS CLEAR 

4439 022210 69S: 

4440 022210 006037 022160 ROR 66$ sSHIFT SOFT DATA 

buat 022214 013737 031230 022162 MOV CALBCC 67% [LOAD OLD SOFT BCC 

4442 022222 022700 000010 CMP #10,R0 :DONE YET? 

lounk3 022286 001346 BNE 65$ >BR IF NOT DONE 

hake 0 104405 SCOP1 :SCOPE SUBTEST (SWwO09=1) 

4445 022232 012737 022240 001444 MOV #71$, LOCK :NEW SCOPE1 

4446 022240 004737 031572 71$: JSR PC,CLRIO >CLEAR BCC REGISTERS 

44aa? 022244 005000 CLR RO :START SHIFT COUNTER AT ZERO 

4448 022246 012737 120001 031226 MOV acRcis XPOLY  :LOAD POLYNOMIAL FOR SOFTWARE BCC 

4u49 022254 012737 000377 022314 MOV #377,738: SLOAD C SOFTWARE BCC 

4450 022262 005037 022316 CLR 74$ [CLEAR OLD SOFTWARE BCC 

4451 022266 004737 031232 JSR PC,BCCLD [LOAD OUT SILO WITH 2 SYNCS 

4452 022272 000377 377 :AND THE CHARACTER 377 

4453 022274 104413 000032 DATACLK, 32 :GET RECEIVER ACTIVE 

4454 022 104413 000001 72$: —*DATACLK, 1 >SHIFT BCC ONCE 

4455 022304 005200 INC RO : SHIFT COUNT 

4456 022 004537 031122 JSR RS, SIMBCC :CALCULATE SOFTWARE BCC LSB 

4457 022312 000001 1 “ONE SHIFT 

4458 022314 000000 73$: 0 “DATA CHARACTER 

4459 022316 000000 743: 0 ‘OLD BCC 

4460 022320 103405 acs 75$ -BR IF SOFT BCC LSB IS SET 

4461 022322 004737 031356 JSR PC, GETQI :GET HARDWARE RECEIVER BCC LSB 

4462 02 326 103006 BCC 768 “BR IF HARD BCC LSB IS CLEAR 

4463 02 104013 ERROR 1 “ERROR, BCC LSB IS SET 

4464 02 332 000404 BR 76$ : CONT [NUE 

4465 022334 004737 031356 75$: JSR PC GETQI ‘GET HARDWARE RECEIVER BCC LSB 

4466 2340 103401 B 768 :BR IF HARD BCC LSB IS SET 

4467 022342 104017 ERROR 1 SERROR, BCC LSB IS CLEAR 

4468 022344 76$: 

4469 022346 37 022314 ROR 73$ :SHIFT SOFT DATA 

4470 022350 013737 031230 022316 MOV CAI BCC, 74% ‘LOAD OLD SOFT BCC 

4471 022356 022700 000010 CMP #10,R0 “DONE YET? 


-_——— EE ne 
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4472 022362 001346 BNE 72$ :BR IF NOT DONE 

4473 022364 104405 SCOP1 “SCOPE SUBTEST (SW09=1) 

4474 022366 77$: 

4475 

4476 

4477 tna? Gf tae Gia TEST 64 sea ataneanaeeeaeaearennes 
4478 “*TEST OF CRC OPERATION 

4479 ; *USING THE CRCIG POLYNOMIAL , SINGLE CLOCK THE CHARACTER 
4480 #125, VERIFY THE LSB OF THE BCC ON EACH SHIFT 

4481 ieTESt TRANSMITTER FIRST THEN THE RECEIVER BCC 

4482 MARBARARABRAABAREARALELELASEE LEE EEE REESE EEE EEE EE EEE CECE SEES SESE SS 
4483 

468s : TEST 44 

4486 : > es PhORReeeeeeerereerereeeeeeeereneasegeceneeeeaaneseneeaaareeene 
4487 022366 000004 TS144: SCOPE 

4488 022370 012737 000044 001202 MOV #44, $TSTNM ; LOAD THE NO. OF THIS TEST 
4489 022376 012737 022702 001442 MOV #TST45 NEXT : POINT TO THE START OF NEXT TEST. 
4490 0224046 012737 022420 001444 MOV #64$,LOCK ADDRESS FOR LOCK ON DATA. 
4491 RI CONTAINS base KMC11 ADDRESS 
4492 022412 104410 MSTCLR :MASTER CLEAR KMC11 
4493 022414 012711 004000 MOV #B1T11,(R1) :SET LU LOOP 
4494 022420 004737 031572 64$: JSR PC,CLRIO :CLEAR BCC REGISTERS 
4495 022424 005 CLR RO :START SHIFT COUNTER A T ZERO 
4496 022426 012737 120001 031226 MOV #CRC16,XPOLY | ;LOAD POLYNOMIAL FOR SOFTWARE BCC 
4497 022434 012737 000125 022474 MOV #125, 668; >LOAD CHAR FOR SOFTWARE BCC 
4498 022442 005037 022476 CLR 67$ :CLEAR OLD SOFTWARE BCC 
4499 022446 737 (031232 JSR PC,BCCLD =LOAD OUT SILO WITH : SYNCS 
4500 45 125 125 ;AND THE CHARACTER 125 
4501 022454 104413 000021 DATACLK, 21 >GET TRANSMITTER ACTIVE 

502 022460 104413 000001 65$:  DATACLK, 1 :SHIFT BCC ONCE 
4503 022464 005200 INC RO :BUMP SHIFT COUNT 
4504 022466 004537 031122 JSR R5,SIMBCC :CALCULATE SOFTWARE BCC LSB 
4505 022472 1 1 SHIFT 
4506 022474 0 DATA CHARACTER 
4507 022476 67$ 0 D BCC 
4508 022 103405 Bcs 68% 7BR IF SOFT BCC LSB IS SET 

509 022502 004737 031344 JSR PC,GETOO :GET HARDWARE TRANSMITTER BCC LSB 
4510 022506 103006 BCC 69$ ‘BR IF HARD BCC LSB IS CLEAR 
4511 022510 104012 ERROR 12 sERROR, BCC LSB IS SET 
4512 022512 000404 BR 698 : CONT INUE 
4513 022514 737 031344 68$: JSR PC,.GETQO 7GET HARDWARE TRANSMITTER BCC LSB 
4514 022520 103401 BCS 69$ “BR IF HARD BCC LSB IS SET 

4515 022522 104016 ERROR 16 sERROR, HARD BCC LSB IS CLEAR 

4516 022524 69$: 
4517 022524 006037 022474 ROR bed :SHIFT SOFT DATA 

4518 022530 013737 031230 022476 MOV CALBCC,67% sLOAD OLD SOFT BCC 

4519 $378 022700 000010 CMP #10,R0 ;DONE YET? 

45 54 tbe BNE 

4521 022544 10440 SCOP1 

452 546 012737 022554 001444 MOV #71$,L0CK 

45 554 004737 031572 71$: JSR PC, CLRIO 

re : sey CLR ® 

01273 120001 031226 MOV #CRC16,XPOLY 
526 Oe 22570 012737 000125 022630 MOV #125,738; 
485 022576 005037 022632 CLR 74$ 


hr SS LL LE TT TE TS (TT: tS A a ER EN SL er 


ee ee ee ee eee 





ro  -  - 
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4528 022602 004737 031232 JSR PC,BCCLD :LOAD OUT SILO WITH 2 SYNCS 
4529 022606 000125 125 D THE CHARACTER 125 
4530 022610 104413 000032 DATACLK, 32 ‘eet RECEIVER Five 
4531 022614 104413 000001 72$: —- DATACLK. i ; SHIFT BCC ON NCE 
4532 022620 005200 INC RO UMP SHIFT COUNT 
4533 022622 004537 031122 JSR R5,SIMBCC “CALCULATE SOFTWARE BCC LSB 
4534 o5se 6 000001 1 :ONE SHI 
4535 0 26 000000 73$: 0 ;DATA CHARACTER 
4536 022632 000000 74$: O ‘OLD BCC 
4537 022634 103405 BCS 75$ :BR IF SOFT BCC LSB IS SET 
4538 0 2636 004737 031356 JSR PC,GETQI :GET HARDWARE RECEIVER BCC LSB 
4539 022642 103006 BCC 76$ 7BR IF HARD BCC LSB IS CLEAR 
4540 022644 104013 ERROR 1 ;ERROR, BCC LSB ig SET 
4541 022646 000404 BR 76$ : CONT INUE 
4542 022650 004737 031356 75$: JSR PC,GETQ! :GET HARDWARE RECEIVER BCC LSB 
4543 022654 103401 BCS 76$ :BR IF HARD BCC LSB IS SET 
4544 022656 104017 ERROR 17 sERROR, BCC LSB IS CLEAR 
4545 022660 76$: 
4546 022660 006037 022630 ROR 73$ ;SHIFT SOFT DATA 
4547 022664 013737 031230 022632 MOV CALBCC,74$ :LOAD OLD SOFT BCC 
4548 022672 022700 000010 CMP #10,R0 “DONE YET? 
4549 022676 001346 BNE 72$ -BR IF NOT DONE 
4550 022700 104405 SCOP1 :SCOPE SUBTEST (Sw09=1) 
4551 022702 778: 
8 
4554 seeeeereerirereceeeecerenenae TEST 65 secenancacarereererareereee 
4555 SeTEST OF CRC aORERA TION 
4556 : *USING THE CRC16 POLY YNOMIAL , SINGLE CLOCK THE CHARACTER 
4557 #252, VERIFY THE LSB OF THE BCC ON EACH SHIFT 
4558 ifs TRANSMITTER Pinst THEN THE RECEIVER BCC 
4559 SRERHHETERAAASE THEATRE RARARAERERERAREAAAEAEERERERAEAAERAREE 
4560 
4561 ; TEST 45 
4563 : ;  Chheeeteeeeeeeereresececereeceneeecerarenaaeeqaeeaeaeeneeeearece 
4564 022702 000004 15145: SCOPE 
4565 022704 012737 000045 001202 MOV 445 STSTNM LOAD THE NO. OF THIS TEST 
b 022712 012737 023216 001442 MOV a1Si66 NEXT : BOINT TO THE START OF NEXT TEST. 
4567 022720 012737 022734 001444 MOV LOCK ADDRESS FOR LOCK ON DATA 
4 :R1 contin BASE KMC11 ADDRESS 
4569 022726 104410 MSTCLR :MASTER CLEAR KMC11 
4570 022 012711 004000 MOV #81111, (R1) 7SET LU cee 
4571 022734 004737 031572 64%: JSR PC, CLRIO :CLEAR BCC REGISTERS 
45 2740 905000 CLR RO :START SHIFT COUNTER AT ZERO 
45 2742 012737 120001 031226 MOV 2 RC16 XPOLY § :LOAD POLYNOMIA! FOR SOFTWARE BCC 
4574 022750 012737 252 023010 MOV #252,66$: sLOAD CHAR FOR 1 SOF TWARE BCC 
4575 7 005037 02 12 CLR ron oot sit 
4576 7 737 (03123 JSR PC,BCCLD OAD OUT SILO with Cenc 
45 7 et 252 HE CHARACTER 252 
457. 104413 000021 DATACLK, 21 RANSMITTER ACTIVE 
45 774 106413 000001 65$:  DATACLK, 1 BCC ONCE 
005200 INC RO SHIFT C 
4581 004 031122 JSR RS, SIMBCC ULATE SOF TUARE BCC LSB 
re | 0 000001 1 HIFT 
4583 023010 000000 66$ 0 CHARACTER 
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BASIC RECEIVER TESTS 


67$: 


68$: 


69$: 


71$: 


72$: 


73$: 
74$: 


75$: 


76$: 


77$: 


0 
BCS 68$ 

JSR PC, GETQO 
BCC 69$ 

FRROR 12 

BR 69$ 

JSR PC ,GETQO 
BCS 69$ 

ERROR 16 

ROR 66$ 

MOV CALBCC,67$ 
CMP #10,R0 

BNE 

SCOP1 

MOV #71$, LOCK 
JSR PC,CLRIO 
CLR R 

MOV #CRC16,XPOLY 
MOV #252,738; 
CLR 74$ 

JSR PC,BCCLD 
252 

DATACLK, 32 
DATACLK, 1 
INC RO 

JSR RS, SIMBCC 
0 

0 

BCS 75$ 

JSR PC ,GETQI 
BCC 76$ 

ERROR 1 

BR Ag 

JSR PC .GETOL 
ERROR 17 

ROR 73$ 

MOV CALBCC 748 
CMP #10,R0 
BNE 

SCOP1 


SEQ 0090 


;OLD BCC 

;BR IF SOFT BCC LSB IS SET 

;GET HARDWARE TRANSMITTER BCC LSB 
BR IF HARD BCC L$3 IS CLEAR 
‘CONTI BCC LSB IS SET 


NTINU 
:GET HARDWARE TRANSMITTER BCC LSB 
;BR IF HARD BCC LSB IS SET 
;ERROR, HARD BCC LSB IS CLEAR 


;SHIFT SOFT DATA 
; LOAD wT? SOFT BCC 


‘BR IF NOT DONE 
SCOPE SUBTEST (Sw09=1) 
COPE1 


i NEW 

;CLEAR BCC REGISTERS 

;START SHIFT COUNTER AT ZERO 
ae POLYNOMIAL FOR 7 eee BCC 


;AND THE CHARA 
;GET RECEIVER ACTIVE 
;SHIFT BCC ONCE 

: SHIFT COUNT 

coe anese SOFTWARE BCC LSB 
:DATA eo 


;BR IF SOFT BCC LSB IS SET 
;GET HARDWARE RECEIVER BCC LSB 
BR IF WARD BCC LSB IS CLEAR 
ERROR BCC LSB IS SET 
; CONT INUE 


:GET HARDWARE RECEIVER BCC LSB 
BR IF HARD BCC LSB IS SET 
sERROR, BCC LSB IS CLEAR 


:SHIFT SOFT DATA 

;LOAD OLD SOFT BCC 

: YET? 

;BR IF NOT DONE 

SCOPE SUBTEST (SW09=1) 


tis co ne TEST 46 eeeeeaceceereeeeaeeereceree 


Bg ge Ng crc | 
COUNT HE 


SINGLE CLOCK A BINARY 


CRC16 POLYNOMINA 
OUNT PATTERN, VERIFY THE téB OF THE TRANSMITTER BCC ON EACH SHIFT 


MARBRERALASARARARARARRRERERARRERRRRRRRRR RR RARR RARE RRR R RRR SAD DS SO | 


; TEST 46 


’ 
SF UMAAAAAARAAAHAAAAAAA AA AAHT AHA ARK AEKAAARARAAKAA AeA eee ee Aeee eee 


’ 
ee sete LS 
A A TT TT ee ee ee ee me eee ee pee EONS ED SENS TRON E RR = ES EE EE SL 


oe 
Eee — 


ee ae 
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4640 3216 000004 TST46: SCOPE 
4641 0 012737 000046 001202 MOV #46,$TSTNM 
ieee 0 6 012737 023454 00144 MOV #TST47 NEXT 
4644 0 34 104410 MSTCLR 
4645 023236 012711 004000 MOV on (R1) 
4646 023242 005003 CLR 
4647 023244 005004 CLR 
4648 023246 005005 CLR RS 
4649 023250 005037 023352 CLR 4$ 
4650 023254 012737 120001 031226 MOV #CRC16,XPOLY 
4651 023262 004737 031374 JSR PC,SYNLD 
465 02 $6 010461 000004 mov R4,4(R1) 
4653 0 104412 ROMCL 
4654 023274 122110 1221 10 
4655 023276 005204 INC RG 
4656 025 010461 000004 MOV R4,4(R1) 
4657 023304 104412 ROMCL 
4658 023306 122110 1221 10 
4659 023310 005204 INC RG 
4660 023312 010461 000004 MOV R4,4(R1) 
4661 023316 104412 ROMCLK 
4662 023320 122110 122110 
4663 023322 004737 030260 JSR PC,OCOR 
4664 023326 104413 000021 DATACLK,21 
4665 023332 010537 023350 1$: MOV R5,3$ 
cae re a a hor te 
tee 098846 
4669 023350 000000 3$: 0 
4670 023352 000000 4$: 0 
4671 023354 103405 BCS 5$ 
4672 023356 004737 031344 JSR PC,GETQO 
4673 023362 103006 BCC 6% 
4674 023364 104020 ERROR 
4675 02 366 BR Sh 
4676 370 004737 031344 S$: JSR PC ,GETQO 
4677 023374 103401 BCS 6$ 
4678 023376 104021 ERROR 21 
4680 023400 6S: 
4681 023400 006037 023350 ROR 3$ 
4682 023404 013737 031230 023352 MOV CALBCC.4$ 
4683 023412 005203 INC R 
4684 023416 22703 000010 CMP #10,R3 
4685 1346 BNE 2$ 
4686 023422 00500 CLR R3 
4687 023424 005204 INC RL 
4688 0234 022704 000400 CMP #400 ,R4 
4689 0 00 04 BLE 
4690 023434 010461 000004 MOV R4,4(R1) 
4691 025440 104412 ROMCLK 
4692 023442 ean) 122110 
4693 023444 005205 9$: INC R5 
4694 023446 022705 000400 CMP #400,R5 
4695 023452 001327 BNE 1$ 


SEQ 0091 


; LOAD THE NO. OF THIS TEST 
; POINT TO THE START OF NEXT TEST. 


:R1 CONTAINS BASE KMC11 ADDRESS 
;MASTER CLEAR KMC11 | 
:SET LINE UNIT. LOOP | 
:ZERO BIT COUNT | 
:R4 CONTAINS CHAR TO BE LOADED IN SILO | 
°R5 CONTAINS CHAR CURRENTLY BEING SHIFTED OuT 

; CLEAR SOFT Bcc 

LOAD POLYNOMINA 
LOAD SILO WITH 5 SYNCS, SOM SET 

s PORTS ¢ HAR 

EXT GORD 1s INSTRUCTION, ROMCLK PC=5304 

i NOAD OUT DATA 


‘PORTA CHA TO NEXT CHARACTER 


R HA 
NEXT GORD 1s INSTRUCTION, ROMCLK PC=5304 
i NOAD OUT 
Dg oH 10 NEXT CHARACTER 


PORT4 CHAR 
;NEXT GORD. 1s INSTRUCTION, ROMCLK PC=5304 
SWAIT FOR OCOR 


CLOCK DATA 
;LOAD CHAR FOR SOFT CRC 
ONCE 


:0LD $ 

:BR IF SOFT “Bec LSB IS SET 
¥ HARDWARE TRANSMITTER BCC LSB 

:BR IF ok 


CLEARED) 
ERROR, BCC LSB WAS SET 
> CONTINUE WITH TEST 

T HARDWARE TRANSMITTER BCC LSB 
:BR IF ok 


(SET) 
sERROR, BCC LSB WAS CLEAR 





ly SOFT pete 


OLD SOFT BCC 
HINCRERENT BIT COUNTER 
:DONE A FULL CHARACTER YET? 


:BR IF NO 

;RESTART BIT COUNTER 

; INCREMENT DATA FOR SILO 
; DONE yes Y COUNT YET? 


7BR 

;PORT4 

NEXT ODAD Is, INSTRUCTION, ROMCLK PC=5304 
SLOA D OUT 

; INCREMENT 
; DONE “BINARY MATTERN YET? 
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BASIC RECEIVER TESTS 


08:24 


000047 
023712 


004000 


000004 


000004 
030260 
023606 
000001 
031122 


031356 


031356 


023606 
031230 


001202 
001442 


031226 


023610 


7$: 


LE rw ES mene 


SEQ 0092 


seeeeneeaterereereneeeeeeene TEST 67 aaaeanaacaceceeeeeenneenaes 
:*RECEIVER CRC TEST 
>*USING THE CRC16 POLYNOMINAL, SINGLE CLOCK A BINARY 

i sueeas PATTERN, VERIFY THE LSB OF THE RECEIVER BCC ON EACH SHIFT 


PARA RBRBRRRARARBRBRAARRRRASRRAERRRRRSARSESR ESLER ERE REESE EEE EEE ee eee eas 


TTTTTITILIT ELITE LTE LETTE LLL ELT TTT Tere TeTTTite 


18147: 


6$: 


; TEST 47 

SCOPE 

MOV 447, STSTNM 
MOV #TST5O,NEXT 
MSTCLR 

MOV #BIT11,(R1) 
CLR R3 

CLR R4 

CLR R5 

CLR 4$ 

MOV #CRC16,XPOLY 
JSR PC,SYNLD 
MOV R4.4(R1) 
ROMCL 

122110 

INC R4 

MOV RG 4(R1) 
ROMCL 

122110 

INC R4 

MOV R4,4(R1) 
ROMCLK 

122110 

JSR PC .OCOR 
geet 
DATACLK,1 

- RS, SIMBCC 
0 

0 

BCS 5$ 

JSR PC ,GETQI 
BCC 6$ 

ERROR 22 

BR 6$ 

JSR PC ,GETQI 
BCS 6$ 

ERROR 25 

ROR 3$ 

MOV CALBCC 4% 
INC R3 


; LOAD THE NO. OF THIS TEST 
POINT TO THE START OF NEXT TEST. 
;R1_ CONTAINS 2 KMC11 ADDRESS 
;MASTER CLEAR KMC11 
+SET LINE UNIT. LOOP 
;ZERO BIT COUNT 
:R4 CONTAINS CHAR TO BE LOADED IN SILO 
:R5 eget ny CHAR CURRENTLY BEING SHIFTED OUT 
:CLEAR SOFT BCC 
;LOAD POL YNOMINAL 
‘ponte = WITH "> SYNCS, SOM SET 


: T OORD IS INSTRUCTION, ROMCLK PC=5304 
Ay OUT DATA 
ARTE ENA TO NEXT CHARACTER 


NEXT DORD IS INSTRUCTION, ROMCLK PC=5304 
stOAD OUT DATA 
HINCRERENT TO NEXT CHARACTER 

4 CHAR 


;NEXT sOnD Is INSTRUCTION, ROMCLK PC=5304 


S BCC 
R IF SOFT BCC LSB IS SET 
;GET HARDWARE RECEIVER BCC LSB 
;BR IF OK (CLEARED) 
:ERROR., BCC So ts SET 
: CONT INUE with 


;GET HARDWARE RECEIVER BCC LSB 
BR IF OK ¢ 
ERROR, BCC LSB WAS CLEAR 


SHIFT SOFT a 
;LOAD OLD SOFT BCC 
; INCREMENT BIT COUNTER 


ee — tee 
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CZKCF P11 08-JUL-80 08:24 BASIC RECEIVER TESTS SEQ 0095 
15eg 023652 022703 000010 CMP #10,R3 4s a A FULL CHARACTER YET? 
47535 023656 001346 BNE 2$ F NO 
4754 023660 005003 CLR R3 RESTART BIT COUNTER 
4755 023662 005204 INC R4 : INCREMENT DATA FOR SILO 
4756 02 022704 000400 CMP #400 ,R4 ;DONE BINARY COUNT YET? 
4757 023670 003404 BLE 9 :BR IF +t 
4758 023672 010461 000004 MOV R4,4(R1) ;PORTS D 
4759 023676 104412 ROMCLK NEXT GORD. Is INSTRUCTION, ROMCLK PC=5304 
4760 023700 122110 122110 ; LOAD OUT DAT 
4761 023702 005205 9$: INC R5 ; INCREMENT DATA 
4762 023704 022705 000400 CMP #400 ,R5 “DONE BINARY PATTERN YET? 
4763 023710 001327 BNE 1$ ;BR IF NO 
4764 023712 7$: 
4765 
4766 
4767 seeeeekeeeeterecereneereeaee TEST 50 seeeeacanearacanraentenerene 
4768 :* TRANSMITTER DDCMP CRC TEST 
4769 :*THIS TEST TRANSMITS A FOUR CHARACTER MESSAGE WITH CRC 
4770 ;*BOTH DATA AND THE BCC ARE VERIFIED IN THE BIT 
4771 ;*WINDOW. THE FOUR CHARACTERS ARE 0,125,252, 377 
4772 i TRANSMITTER IS CHECKED FOR GOING TO A MARK STATE AFTER THE BCC 
4773 SRRAAERERERERARTREEEREAAEAAAAAAEEEEEREAARERAEHEEAREREREREEAE REE 
4774 
pie ; TEST 50 
4777 gsuosesucncencncereneerenenenenesssnenenesacesceneceesnccesessees 
4778 023712 TST50: SCOPE 
4779 023714 012737 000050 001202 MOV is NM : LOAD THE NO. OF THIS TEST 
4780 023722 012737 024244 001442 MOV sist 1, NEXT POINT TO THE START OF NEXT TEST. 
4781 :R1 CONTAINS BASE KMC11 ADDRESS 
res 023730 104410 MSTCLR :MASTER CLEAR KMC11 
rE ;LOAD OUT DATA SILO 
4786 023732 012711 004000 MOV #B1T11,(R1) ;SET LINE UNIT LOOP 
4787 023736 012704 032012 MOV #MESDAT RS LOAD PINTER TO DATA 
4788 0235742 005037 024036 CLR 108 :CLEAR SOFT BCC 
4789 023746 012700 000004 MOV 4,R0 ;LOAD CHARACTER 
4790 023752 004737 031374 JSR C,SYNLD ;LOAD 2 SYNCS IN OUT SILO 
4791 023756 004737 030412 JSR PC ,OUTRDY ;WAIT FOR OUTRDY 
4792 023762 004537 031530 JSR »MESLD :LOAD SILO WITH 4 CHAR MESS 
479 Oe a7 ee 032012 MESDAT eee ay OF MESSAGE 
4794 023770 000004 & ; R OF CHARACTERS 
4795 023772 004737 031504 JSR »EOR ; GARBAGE CHARACTER, WITH EOM SET 
4 023776 004737 030260 JSR PC ,OCOR WAIT OCOR 
4797 024002 005003 CLR ;CLEAR BIT COUNTER 
4798 coe sy: 1044135 000022 DATACLK 22 ;CLOC 
4799 024010 112405 12$: MOVB (R4)¢,R5 ;LOAD R5 WITH CHAR 
rr + 024012 010502 MOV R5,R2 ;LOAD R2 WITH CHAR 
4802 : CHECK FIRST FOUR CHARACTER MESSAGE 
rot IN THE BIT WINDOW (0,125,252,377) 
4805 024014 012737 120001 031226 MOV #CRC16,XPOLY s LOAD POL YNOMI AL 
4806 024022 010537 024034 MOV R5, ;LOAD SOFT CHAR FOR BCC 
4807 026026 004537 031122 JSR R5,SIMBCC ‘CALCULATE SOFT BCC 
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031230 024036 
000001 


030226 


030226 


000010 


031230 
000001 
030226 


030226 


000020 


000001 
030226 


000007 
000010 


000001 
030226 
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24 BASIC RECEIVER TESTS 


67$: 
10$: 
64$: 


é5$: 


66$: 


68$: 


69$: 


70$: 


23: 


3$: 


4$: 


SEQ 0094 
10 “SHIFT COUNT 
0 : CHARACTER 
0 ;OLD BCC 
MOV CALBCC,10$ ‘LOAD SOFT BCC FOR NEXT SHIFT 
DATACLK, 1 SH IFT DATA IN TO BIT WINDOW 
RORB sR ‘SHIFT SOF T DATA 
BCC 65$ "BR IF A SPACE 
JSR PC GETSI ‘LOOK AT BIT WINDOW 
BCS 66$ :BR IF OK (MARK) 
ERROR 6 “ERROR, BIT uINDOY WAS A SPACE 
BR 66$ : ONT INUE 
JSR PC,GETSI :LOOK AT BIT WINDOW 
BCC 66$ “BR IF OK (SPACE) 
ERROR 6 “ERROR, BIT WINDOW WAS A MARK 
INC R3 :BUMP BIT COUNTER 
CMP #10,R3 : DONE FULL 8 BITS YET 
BNE 64$ R IF NO 
CLR R3 “CLEA aR BIT COUNTER 
DEC RO “DEC CHARACTER COUNT 
BNE 12$ :BR IF NOT DONE YET 
sCHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW 
MOV CALBCC,RO :PUT BCC IN RO 
DATACLK,1 :SHIFT HARDWARE BCC 
ROR R >SHIFT SOFT BCC 
BCC 69% “BR IF CARRY CLEAR 
JSR PC,GETSI [LOOK AT BIT WINDOW 
BCS 70$ 7BR IF OK (MARK) 
ERROR 14 sERROR, CRC WRONG (SPACE) 
BR 70$ > CONTINUE 
JSR PC,GETS! [LOOK AT BIT WINDOW 
BCC 70$ “BR IF OK (SPACE) 
ERROR 14 sERROR, CRC WRONG (MARK) 


INC R3 ;BUMP BIT COUNTER 


CMP #20,R3 :FINISHED BCC YET? 
BNE 68$ :BR IF NO 
CLR R3 “CLEAR BIT COUNTER 


:CHECK TO SEE If TRANSMITTER IS MARKING 


DATACLK, 1 :CLOCK TRANSMITTER 
JSR PC,GETSI :LOOK AT WINDOW 
BCS 3§ T SHOULD BE MARKING 
ERROR 24 BIT WAS A SPACE 
INC 3 BIT COUNTE 
CMP #7,R3 YET 
BNE $ IF NO 
DATACLK, 10 E ENOUGH TICKS TO CLEAR OUT ACTIVE 
CLR R3 BIT COUNTER 
DATACLK, 1 OUT NEXT BIT 
JSR PC,GETSI AT BIT WINDOW 
CS +4 IT IS A MARK 
ERROR 24 ERROR, TRANSMITTER IS NOT MARKING 
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001366 
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000020 


000051 
024446 


004000 
032012 
031374 


030412 
031530 


031504 
030260 
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031066 


000004 


001202 
001442 


001302 
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BASIC RECEIVER TESTS 


5$: 


s .FeRT 5% 
PTITITITITITIIITITI LIL LILI TIT T TTT LL iiiiiiiii iii titi Tite 
TST51: SCOPE 
MOV #51,STSTNM ; LOAD THE NO. OF THIS TEST 
MOV #TSt52, NEXT ; POINT TO THE START OF NEXT TEST. 
sR1 CONTAINS aaa ‘gol ADDRESS 
smAsT ER CLEAR KMC11 


3$: 


18: 


INC 


CMP 
BNE 


R3 ; INC BIT COUNT 
#20,R3 ;DONE YET? 
4% ;BR IF NO 


seeeekenereererereereererane TEST 5] seannneaneeneenaeeneeeeneee 


S*RECEIVER DDCMP "t TEST 


:*THIS TEST CLOCKS A 


FOUR CHARACTER MESSAGE WITH BCC 


:*AND VERIFYS CORRECT DATA RECEPTION AND BCC MATCH 
;*THE FOUR CHARACTER MESSAGE IS 0,125,252,377 


OE AAAAAA RA RARRARAARRARERAARELALSSEL ELLE SEES SEE EEE EE EEE TEE EE EE SE 


MSTCLR 











MOV #B1T11,(R1) >SET LINE UNIT LOOP 
MOV #MESDAT,R2 ; LOAD POINTER TO DATA 
MOV sRO "LOAD CHARACTER COUNT 
JSR PC. SYNLD ‘LOAD 2 SYNCS IN OUT SILO 
JSR PC ,OUTRDY ‘WAIT FOR OUTRDY 
JSR R5,MESLD ; LOAD SILO WITH 4 CHAR MESS 
MESDAT ADDRESS OF MESS AGE 
4 : NUMBER OF CHARACTERS 
JSR PC,EOM [LOAD GARBAGE CHARACTER, WITH EOM SET 
JSR PC,OC OCOR 
DATACLK, 114 
JSR PC, INRDY 
4(R1),R4 “PUT 'F 
(R2)¢,R5 >PUT “EXPECT RS 
R5,R4 ;COMPARE RECEIVED DATA 
1$ “BR IF OK 
10 *DATA ERROR 
RO DEC CHARACTER COUNT 
3$ ‘BR IF NOT DONE YET 
sCHECK TO SEE THAT IN BCC MATCH IS SET 
PC, INRDY sWAIT FOR INRDY 
:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
:GET FIRST HALF OF CRC 
4(R1),STMP2 :PUT IN $TMP 
#177 7400. STMP2  :CLEAR HI BYTE 
; “WAIT FOR INRDY 
“NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
4(R1) RS FOUND 
#376 RG SCLEAR reD 81 
#i,R5 “PUT EMPECTED IN Rs 





SEQ 0095 


—— aie 


CZKCF P11 08-JUL-80 0 
4920 024434 120504 
4921 024436 001401 
4922 024440 104015 
4923 024442 
4924 024442 104412 
4925 024444 021204 
4926 024446 
4927 
4928 
4929 
4930 
4931 
4932 
4933 
4934 
4935 
4936 
4937 
4938 
4939 
4940 
4941 
4942 
4943 024446 000004 
4944 024450 012737 
4945 024456 012737 
4946 
4947 024464 104410 
6948 
4949 
4950 
4951 024466 012711 
4952 024472 012704 
4953 024476 005037 
4954 024502 012700 
4955 024506 004737 
4956 024512 004737 
4957 024516 004537 
4958 024522 032012 
4959 024524 
4960 024526 004737 
4961 0245 537 
4962 024536 052012 
4963 024540 
4964 024542 004737 
4965 024546 004737 
4966 024552 00500 
4967 024554 104413 
4968 024560 112405 
4969 024562 010502 
4970 
4971 
4972 
4973 
497% 024564 012737 
4975 024572 010537 


MACY11 ey 


000052 001202 
025546 001442 


004000 
032012 
024606 
000004 
031374 
030412 
031530 
031504 
031530 
031504 
030260 
000022 


120001 
024604 


031226 
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BASIC RECEIVER TESTS 


25$: 


2$: 


1S152: 


CMPB 
EQ 
ERROR 


ROMCLK 
021204 


R5RG 
25$ 
15 





;1S IN BCC MATCH SET? 
;IN BCC MATCH ERROR 


;NEXT ia hp INSTRUCTION, ROMCLK PC=5304 
;GET LAST H 


seaeeekeeeterererereeeraaene TEST $52 seanceennacanenseneneaeretene 


:*DDCMP_EOM FUNCTION TEST 


;*THIS TEST LOADS OUT SILO WITH: 


2 SYNCS,4 CHAR MESSAGE ,EOM 


:*4 CHARACTER gett a of THE DATA STREAM IS CHECKED TO BE 


#4 CHA 


4 CHA 


R,BCC MARKS. THIS TEST VERIFYS THAT 
ARE LOST 
CHECKED IN THE a ao 


; N 
:*THE FOUR CHARACTER MESSAGE IS 0,125, 


;*RECEIVED DATA IS VERIFIED, 


AND IN BCC MATCH IS CHECKED 


PETTITT TTETITI ITLL TELE ELITE TTT TTT TTT TTT Tee 


s TEST 32 
cinkmmasauanedemuneseusesdscecaecsththbtindasdtodsccereceneeqos 
SCOPE 
MOV #52,STSTNM : LOAD THE NO. OF THIS TEST 
MOV #TS153, NEXT POINT TO THE START OF NEXT TEST. 
sR1 CONTAINS BASE KMC11 ADDRESS 
MSTCLR *MASTER CLEAR KMC11 


12$: 


;LOAD OUT DATA SILO 





MOV #BIT17,(R1) +SET LINE UNIT LOOP 
MOV #PMESDAT ,R4 ;LO 

CLR 

MOV #4,R0 

JSR PC,SYNLD 

JSR PC ,OUTRDY 

JSR R5 ,MESLD 

= 

JSR PC,EOM 

JSR R5 ,MESLD 

gaa 

JSR PC ,EOM 

JSR PC,OCOR 

CLR R : 

DATACLK,2 : CLOCK 

MO (R4)+,R5 ;sLOAD R5 WITH CHAR 
MOV R2 ;LOAD R2 WITH CHAR 


;CHECK FIRST FOUR CHARACTER ae 
;IN THE BIT WINDOW (0,125,252 


MOV 
MOV 


#CRC16,XPOLY 
R5 67% 


: LOAD POL YNOMI AL 
;LOAD SOFT CHAR FOR BCC 


SEQ 0096 


LL A ES ee RR 


ee ee ee rr a ee 
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031122 
031230 
000001 
030226 


030226 


000010 


031230 
000001 
030226 


030226 


000020 


000004 
032012 
025000 


120001 
024776 
031122 


031230 025000 





024606 


031226 


LL — 
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BASIC RECEIVER TESTS 


67$: 
10$: 


64$: 


65$: 


66$: 


68$: 


69$: 


708: 


13$: 


JSR R5,SIMBCC CALCULATE SOFT BCC 
bi A COUNT 
0 ; CHARACTER 
0 OLD BCC 
MOV nan SALOEC 198 er SOFT BCC FOR NEXT SHIFT 


IFT DATA . z= BIT WINDOW 
;SHIFT SOFT DAT 


C 65$ “BR IF A SPA 
JSR PC, GETSI :LOOK AT BIT WINDOW 
66$ “BR IF OK (MARK) 


BCS 
ERROR 6 
BR 


Bins eh BIT WINDOW WAS A SPACE 
66$ ONT INUE 
JSR PC ,GETSI 


LOOK AT BIT WINDOW 


Cc 66$ "BR IF OK (SPACE) 
ERROR 6 “ERROR, BIT WINDOW WAS A MARK 
INC R3 :BUMP BIT COUNTER 
CMP #10,R3 “DONE FULL 8 BITS YET 
BNE 64 “BR IF NO 
CLR R3 “CLEAR BIT COUNTER 
DEC RO “DEC CHARACTER COUNT 
BNE 12$ “BR IF NOT DONE YET 


sCHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW 


MOV CALBCC,RO :PUT BCC IN RO 
DATACLK,1 7S 
ROR R 


6 
JSR PC ,GETSI 





BCS 70$ “BR IF OK (MARK) 
ERROR 14 sERROR, CRC WRONG (SPACE) 
BR 0$ > CONT INUE 
JSR PC ,GETSI :LOOK AT BIT WINDOW 
BCC 70$ :BR IF OK (SPACE) 
ERROR 14 SERROR, CRC WRONG (MARK) 
INC R :BUMP BIT COUNTER 
CMP R3 “FINISHED BCC YET? 
BNE :BR IF NO 
:CLEAR BIT COUNTER 
#4 RO :RESET CHARACTER COUNTER 
#MESDAT RG [LOAD MESSAGE POINTER 
:CLR SOFT BCC 
(R4)* RS : CHAR IN RS 
R5,R2 ‘LOAD CHAR IN R2 
:CHECK SECOND MESSAGE IN THE BIT WINDOW (0,125,252,377) 
Se :LOAD POLYNOMIAL 
ae *LOAD SOFT CHAR FOR BCC 


ths wy T Bcc 

;SHIFT COUNT 

CHARACTER 

OLD BCC 

;LOAD SOFT BCC FOR NEXT SHIFT 





MOV CALBCC,11$ 





SEQ 0097 


_—_——— 


; 
Se ee ee — sa — —_ 
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P11 OB=JUL-80 08 BASIC RECEIVER TESTS SEQ 0098 
025010 104413 000001 73$: —- DATACLK, 1 :SHIFT DATA IN TO BIT WINDOW 
025014 10600 RORB R2 “SHIFT SOFT DATA 
025016 103005 BCC 74$ “BR IF A SPACE 
025020 004737 030226 JSR PC GETS! "LOOK AT BIT WINDOW 
025024 103406 RCS 75$ "BR IF OK (MARK) 

025026 104006 ERROR ;ERROR, BIT WINDOW WAS A SPACE 
0250 000404 BR 5$ : CONT INUE 
025032 004737 030226 74$: JSR PC GETS! ‘LOOK AT BIT WINDOW 
025036 103001 C 75$ “BR IF OK (SPACE) 
025040 104006 ERROR 6 “ERROR, BIT WINDOW WAS A MARK 
025042 75$: 
025042 005203 INC R3 :BUMP BIT COUNTER 
025044 022703 000010 CMP #10,R3 :DONE FULL 8 BITS YET 
025050 001357 BNE 73$ “BR IF NO 
025052 005003 CLR R3 “CLEAR BIT COUNTER 
025054 0055800 DEC RO “DEC CHARACTER COUNT 
025056 201335 BNE 13$ “BR IF NOT DONE YET 
:CHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW 
025060 013700 031230 MOV CALBCC,RO :PUT BCC IN RO 
25064 104413 000001 77$: -DATACLK,1 ‘SHIFT HARDWARE BCC 
025070 006000 ROR RO “SHIFT SOFT BCC 
025072 103005 acc 78% “BR IF CARRY CLEAR 
025074 004737 030226 JSR PC GETS! :LOOK AT BIT WINDOW 
25100 103406 BCs 79$ “BR IF OK (MARK) 
025102 104014 ERROR 14 “ERROR, CRC WRONG (SPACE) 
52106 000404 BR 79% : 
5106 004737 030226 78$: JSR PC,GETS! [LOOK AT BIT WINDOW 
025112 103001 BCC 79$ :BR IF OK (SPACE) 
025114 104014 Re ERROR 14 “ERROR, CRC WRONG (MARK) 
025116 005203 INC R3 ;BUMP BIT COUNTER 
025120 022703 000020 CMP #20.R3 sFINISHED BCC YET? 
025124 001357 BNE 77$ : NO 
025126 005003 CLR R3 *CLEAR BIT COUNTER 
sCMECK TO SEE If TRANSMITTER IS MARKING 
025130 104413 000001 2$: DATACLK, 1 sCLOCK TRANSMITTER 
25134 004737 030226 JSR PC,GETSI “LOOK AT WINDOW 
025140 103401 BCS 3$ :1T SHOULD BE MARKING 
025142 104024 ERROR 24 “ERROR, BIT WAS A SPACE 
25144 005203 3s: INC as “BUMP BIT COUNTER 
025146 022703 000007 CMP #7 ,R3 :DONE YET 
025152 001366 ‘BR IF NO 
025154 104413 000010 DATACLK, 10 ‘GIVE ENOUGH TICKS TO CLEAR OUT ACTIVE 
025160 005003 L R3 :CLEAR BIT COUNTER 
5162 104413 000001 4$: DATACLK, 1 “SHIFT OUT NEXT BIT 
5166 004737 030226 JSR PC,GETSI *LOOK AT BIT WINDOW 
331 2 103401 BCS +4 :BR IF IT IS A MARK 
025174 104024 ERROR 24 “ERROR, TRANSMITTER IS NOT MARKING 
025176 005203 INC R3 ‘INC BIT COUNT 
025200 022703 000020 CMP #20,R3 “DONE YET? 
025204 001366 BNE 4$ “BR IF NO 


eee ee a ee oe ae rere sme em ee -- — 


ER RE RO ER ee Ne Rs GSE NES tet oe 


ne eee 
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CZ2KCF P11 08-JUL-80 08:24 BASIC RECEIVER TESTS SEQ 0099 
5088 :CHECK TO SEE THAT FIRST FOUR CHARACT R MESSAGE 

| 5089 “WAS RECEIVED CORRECTLY (0,125,252,377) 
5091 025206 104413 000001 DATACLK, 1 i6 T LAST BIT IN RECEIVER 
5092 025212 012703 000004 MOV #4,R3 R3=CHARACTER COUNT 
5093 025216 012702 032012 MOV #MESDAT,R2 LOAD ME SSAGE pROINTER IN R2 
5094 0 3222 004737 031066 40$: JSR PC, INRDY “WAIT FOR INR 
5095 025226 104412 ROMCLK “NEXT WORD is. INSTRUCTION, ROMCLK PC=5304 
5096 025 021204 021204 | 
5097 025232 016104 000004 MOV 4(R1) RS ;PUT ‘'FOUND'’ IN RG | 
5098 025 112205 MOVB = (R2)+_RS “PUT EXPECT R5 | 
5099 025240 120504 CMPB sR, LRG is RECEIVED DATA CORRECT? | 
5100 025242 001401 BEQ 41$ YES 
5101 025244 104010 ERROR 10 RECEIVE DATA ERROR 
5108 025246 005303 41$: DEC R3 >DEC CHARACTER COUNT 
5103 025250 001364 BNE 40$ “BR IF NOT DONE YET | 
5105 :CHECK TO SEE THAT IN BCC MATCH IS SET | 
3106 sAND THAT THE BCC WAS RECEIVED CORRECTLY | 
5108 025252 004737 031066 JSR PC, INRDY WAIT FOR INRDY | 
5109 025256 104412 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
5110 025260 021204 021204 “GET FIRST HALF OF CRC 
$111 025262 116137 000006 001302 MOVE G(R1),$TMP2 ss: PUTIN STMP2 | 
5112 025270 042737 177400 001302 BIC #177460,$TMP2 :CLEAR HI BYTE 
5113 025276 004737 031066 JSR PC, INRDY “WAIT FOR INRDY | 
5114 025302 104412 ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 | 
115 925304 0 1244 021244 
116 016104 000004 MOV 4(R1) RG :PUT "“FOUND'' IN R4 
S117 025312 042704 000376 BIC «#376.Re “CLEAR UNWANTED BITS | 
5118 025316 012705 000001 MOV #7,R5 :PUT EXPECTED’ IN RS 
5119 025322 120504 CMPB aR. LRG 71S IN BCC MATCH SET? | 
5120 025324 001401 BEQ 50$ 
5121 025326 104015 ERROR 15 > IN BCC MATCH ERROR 
5122 0253 508: 
5123 3330 104412 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
$126 025 0212 021204 :GET LAST HALF 
5125 025334 116137 001301 MOVE 4(R1).$TMP1+1  :PUT IN ‘ 
5126 025342 040737 000377 001300 #377, STMP1 :CLEAR LO BYTE 
5127 0 3350 053737 001300 001302 STi STRAP? :16 BIT BCC NOW IN $TMP2 
5128 025356 023737 031230 001302 CALBCC,STMP2 31S IT CORRECT? 
5129 025364 001401 4 BR IF 
3136 025366 104027 2 
5132 :CHECK TO SEE THAT SECOND FOUR CHARACTER MESSAGE 
5133 sWAS RECEIVED CORRECTLY (0,125,252. 377) 
5135 025370 012703 000004 42$: MOV #4,R3 :R3=CHARACTER COUNT | 
5136 025374 012702 032012 MOV #MESDAT,R2 ‘LOAD MESSAGE POINTER IN R2 
5137 025400 004737 031066 43$: JSR PC, INRDY ‘WAIT FOR I 
5138 025404 104412 ROMCL K “NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 
5139 25406 021204 021 i 
5140 025410 016104 000004 4CRT) RG :PUT “'FOUND'' IN RG | 
5141 025414 112205 MOVB = (R2)+.R5 “PUT “EXPECTED: IN RS 
5142 025416 120504 ( R5. RG "1S RECEIVED DATA CORRECT? | 
$143 025420 001401 BEO 44$ “BR IF YES 

| 
| 
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CZKCF.P11 O8=JUL-80 08:24 BASIC RECEIVER TESTS SEQ 0100 
5144 35035 104019 ERROR 10 ;RECEIVE DATA ERROR 
5145 025424 005303 44$: DEC R3 “DEC CHARACTER COUNT 
3146 025426 001364 BNE 43$ “BR IF NOT DONE YET 
6148 :CHECK TO SEE THAT IN BCC MATCH IS SET 
aie. ;AND THAT THE BCC WAS RECEIVED CORRECTLY 
5151 025430 004737 031066 JSR PC, INRDY WALT FOR INRDY 
5152 025434 104412 ROMCLK "NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
5153 025436 021204 021204 :GET FIRST HALF OF CRC 
5154 025440 116137 001302 MOVB 4(R1),$TMP2 :PUT IN $TMP2 
5155 025446 042737 177400 001302 BIC #177460,$TMP2 CLEAR HI BYTE 
5156 025454 004737 031066 JSR PC, INRDY “WAIT FOR INR 
5157 025460 10441 ROMCLK “NEXT WORD is. INSTRUCTION, ROMCLK PC=5304 
5158 025462 021244 021244 
5159 025464 016104 0000 MOV 4(R1) RG :PUT "’FOUND'’ IN 
5160 025470 042704 000376 BIC #376,R4 “CLEAR UNWANTED BITS 
$161 025474 012705 00000 MOV #1,R5 “PUT EXPECTED’ IN RS 
5162 025500 1205 CMPB RS, RG :1S IN BCC MATCH SET? 
5163 025502 001401 BEQ 51$ 
5164 025504 10401 ERROR 15 :IN BCC MATCH ERROR 
5165 025506 51%: 
5166 025506 104412 ROMCLK :NEXT WORD als, INSTRUCTION, ROMCLK PC=5304 
5167 025510 02) 021204 “GET LAST 
5168 025512 116137 000004 001301 MOVE 4(R1),STMP1+1  :PUT iN Ste 
5169 0255 O42 000377 001300 BIC #377, $TMP1 CLEAR LO BYTE 
5170 025526 053737 001300 001302 BIS STMP1, STMP2 :16 BIT BCC NOW IN $TMP2 
5171 0255 023737 031230 001302 CMP CALBCC,STMP2 :IS IT CORRECT? 
5172 025542 401 BEQ 5$ “BR IF OK 
5173 025544 104027 ERROR 27 
5174 025546 5$: 
HE 
5177 aneie See Saaetiaes tea TEST §3 eeeeeeeeeeeceerereeereecens 
5178 [*DDCMP EOM FUNCTION TEST 
5179 : eTHIS TEST LOADS OUT SILO WITH: R: SYNCS.4 CHAR MESSAGE .EOM 
5180 »& CHAR MESS.EOM. THE DATA STREAM IS CHECKED TO BE 
5181 ise CHAR. BCC,4 CHAR, BCC,.MARKS. was. Test VERIFYS THAT 
5182 “THE € RCTERS nah COMDeD So LOST 
5183 THE OADED with ‘Is NOT IN ine BCC 
5184 A AND Btc's CHE iy 
5185 2 CHARACTER RESSAGE 1S) 
5186 D DATA 1S VERIFIED, 254,377 1S CHECKED 
5187 RECEIVED DATA 1S VERIFIED. AND IN @CC MATCH IS CHECKED 
5188 
By ; TEST $3 
5191 PUT TTT TTT TT TTT TTT TTT TTTITITTTTITT TTT TTT TTT TTT TTT TTT TT 
5192 025 546 15153: SCOPE 
5193 025550 012737 000053 001202 MOV #53 B1StWm : LOAD THE NO. OF THIS TEST 
5194 025556 012737 026746 001442 MOV aist THE START OF NEXT TEST. 
5195 :R1 comtiitee. BASE’ on 1 ADDRESS 
5196 025564 104410 MSTCLR “MASTER CLEAR KMC 
5198 sLOAD OUT DATA SILO 
5199 
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BASIC RECEIVER TESTS 


120001 
025710 
031122 


031230 
000001 
030226 


030226 


000010 


031230 
000001 


030226 


031226 


025712 


12$: 


67$: 
10$: 


64$: 


65$: 


66$: 


68$: 


DATACLK 


MOVB 


RS = 


#B1T11,(R1) 
#MESDAT RG 


5,MESLD 


R5,MESLD 


PC ,EOM 


PC ,OCOR 
R 


222 
(R4)+,R5 


R5,R2 


eee 


i. 7 


SO | ee ea EENe- einen aE 
LC Cy tt 


SEQ 0101 
:SET LINE UNIT LOOP 


NARACTER COUNT 
L : LOAD {ric IN OUT SILO 


; NUMB S 
;LOAD GARBAGE CHARACTER, WITH EOM SET 
; LOAD GARBAGE CHAR Bb. SOM SET 
;LOAD FOUR MORE CHARACTERS 
‘ADDRESS OF MESSA Ge 
; oer Es OF CHACTERS 


‘LOAD “RS With CHAR 
sLOAD R2 WITH CHAR 


;CHECK FIRST FOUR CHARACTER MESSAGE 
IN THE BIT WINDOW (0,125,252,377) 





MOV #CRC16,XPOLY | ;LOAD POLYNOMIAL 
MOV 67 “LOAD SOFT CHAR FOR BCC 
JSR RS. SIMBCC sCALCULATE SOFT BCC 
10 “SHIFT COUNT 
0 : CHARACTER 
0 SOLD BCC 
MOV CALBCC, 108 :LOAD SOFT BCC FOR NEXT SHIFT 
DATACLK, 1 ‘SHIFT DATA IN To BIT WINDOW 
RORB >SHIFT SOFT DATA 
65$ “BR IF A SPACE 
PC GETS! ‘LOOK AT BIT WINDOW 
66$ “BR IF OK (MARK) 
f *ERROR, BIT WINDOW WAS A SPACE 
66$ : CONTINUE 
PC GETS! “LOOK AT BIT WINDOW 
66$ “BR IF OK (SPACE) 
6 SERROR, BIT syiNbou WAS A MARK 
R3 :BUMP BIT COUNTER 
#10,R3 ; DONE FULL o BITS YET 
648 NO 
R3 SCLEAR BIT COUNTER 
RO “DEC CHARACTER COUNT 
12% “BR IF NOT DONE YET 
sCHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW 
MOV CALBCC,RO :PUT BCC IN RO 
DATACLK, 1 “SHIFT HARDWARE BCC 
R RO SSHIFT SOFT BC 
BCC 69% R IF CARRY CLEAR 
JSR PC GETS! ‘LOOK AT BIT WINDOW 
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BASIC RECEIVER TESTS 


69$: 


70$: 


32$: 


30$: 


318: 


13$: 


76$: 
11$: 


73$: 


74$: 


75$: 


BCS 70$ 
ERROR 14 

BR 70$ 

JSR PC ,GETSI 


ACC 70$ 
ERROR 14 

INC R3 

CMP #20,R3 
BNE 68$ 
CLR R2 


:CHECK CHARACTER LOADED 
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;BR IF OK (MARK) 
Abe of WRONG (SPACE) 


; CONTINU 

;LOOK AT BIT WINDOW 

;BR IF OK (SPACE) 
ERROR, CRC WRONG (MARK) 


;BUMP BIT COUNTER 
>FINISHED BCC YET? 


;BR_IF NO 
;CLEAR BIT COUNTER 
WITH SOM (000), IN THE BIT WINDOW 


; CHARACTER LOADED WITH SOM 
;LOAD R2 WITH CHAR 

;CLOCK TRANSMITTER 

;SHIFT SOFT DATA 

; IF SPACE 

;LOOK AT BIT WINDOW 

3BR IF OK (MARK) 
ae WINDOW WAS A SPACE 
;LOOK AT BIT WINDOW 

3BR IF OK (SPACE) 





IT COUN 
DONE CHARACTER YET? 
:BR IF NO 
;RESET BIT COUNTER 
RESET CHARACTER COUNTER 
:LOAD MESSAGE POINTER 
;CLR SOFT BCC 
;LOAD CHAR IN R5 
LOAD CHAR IN R2 


sCHECK SECOND MESSAGE IN THE BIT WINDOW (0,125.252,377) 


MOV #CRC16, XPOLY 
MOV R5,7 
+ RS, SIMBCC 


0 
0 
MOV CALBCC,118 
DATACLK, 1 


74$ 
JSR PC ,GETSI 
BCS 75$ 


JSR pe cETS! 
Sg 


:LOAD POLYNOMIAL 

;LOAD SOFT CHAR FOR BCC 

CALCULATE SOFT BCC 

SHIFT COUNT 

; CHARACTER 

FOR NEXT SHIFT 
IND 


TW 
SPACE) 
WINDOW WAS A MARK 


SEQ 0102 


a aaa 


a te ee 


MVM 
AWARD 


BIRAR UNOS 


SELESTES SESE 


FUN LS 
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BASIC RECEIVER TESTS 


77$: 


78$: 


79$: 


2$: 


3$: 


4$: 


40$: 





INC R3 :BUMP BIT COUNTER 
CMP #10,R3 :DONE FULL 8 BITS YET 

BNE 73$ "BR IF NO 

CLR Rz “CLEAR BIT COUNTER 

DEC RO “DEC CHARACTER COUNT 

BNE 13$ "BR IF NOT DONE YET 
:CHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW 
MOV CALBCC,RO ;PUT BCC IN RO 

DATACLK, 1 ‘SHIFT HARDWARE BCC 

ROR RO :SHIFT SOFT BCC 

BCC 78$ "BR IF CARRY CLEAR 

JSR PC,GETSI :LOOK AT BIT WINDOW 

BCS 79$ ‘BR IF OK (MARK) 

ERROR 14 sERROR, CRC WRONG (SPACE) 
BR 79$ : INUE 

JSR PC,GETSI :LOOK AT BIT WINDOW 

BCC 79$ “BR IF OK (SPACE) 

ERROR 14 “ERROR, CRC WRONG (MARK) 
INC R3 :BUMP BIT COUNTER 

CMP #20,R3 sFINISHED BCC YET? 

BNE 77$ “BR IF NO 

CLR R3 -CLEAR BIT COUNTER 


;CHECK TO SEE IF TRANSMITTER IS MARKING 





DATACLK, 1 sCLOCK TRANSMITTER 

JSR PC,GETSI [LOOK AT WINDOW 

BCS 3§ :1T SHOULD BE MARKING 

ERROR 24 TERROR, BIT WAS A SPACE 

INC R3 ‘BUMP BIT COUNTER 

CMP a : DONE yt 

DATACLK, 10 :GIVE ENOUGH TICKS TO CLEAR OUT ACTIVE 
LR R3 *CLEAR BIT COUNTER 

DATACLK, “SHIFT OUT NEXT BIT 
SR PC,GETSI “LOOK AT BIT W 

BCs +h “BR IF IT IS A MARK 

ERROR 24 “ERROR, TRANSMITTER IS NOT MARKING 

INC RS SINC BIT COUNT 

CMP #20,R3 ; ET? 

BNE 4$ :BR IF NO 


;CHECK TO SEE THAT FIRST FOUR CHARACTER MESSAGE 
sWAS RECEIVED CORRECTLY (0,125,252,377) 





DATACLK, 1 :GET LAST BIT IN RECEIVER 
MOV R3 *R3=CHARACTER COUNT 

MOV #MESDAT,R2 :LOAD MESSAGE POINTER IN R2 

JSR PC, INRDY ‘WAIT FOR INRDY 

O21 abe *NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
MOV 4(R1) RA ;PUT ‘FOUND’ IN 

MOVB = (R2)+_R5 ‘PUT EXPECTED’ IN RS 
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P11 08-JUL-80 08:24 BASIC RECEIVER TESTS SEQ 0104 
026414 120504 CMPB sR. RG :1S RECEIVED DATA CORRECT? 
026416 001401 BEQ 41$ "BR IF YES 
Sess ast as: He Hig warery 
026424 001364 BNE 40$ “BR IF NOT DONE YET 
:CHECK TO SEE THAT IN BCC MATCH IS SET 
“AND THAT THE BCC WAS RECEIVED CORRECTLY 
026426 004737 031066 JSR PC, INRDY :WAIT FOR INRDY 
026432 104412 ROMCL :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
026434 021204 021204 “GET FIRST HALF OF CRC 
026436 116137 000004 001302 MOVB 4(R1),$TMP2 "PUT IN $TMP2 
026444 042737 177400 001302 BIC #177400,$TMP2  :CLEAR HI BYTE 
026452 004737 031066 JSR PC, INRDY ‘WAIT FOR INRDY 
026456 104412 CLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
026460 021244 021244 
026462 016104 000004 MOV G(R) RG :PUT FOUND’ IN R64 
026466 042704 000376 BIC #376, RG :CLEAR UNWANTED BITS 
026472 012705 000001 MOV #1, R5 :PUT "EXPECTED’’ IN RS 
026476 120504 CMPB RS LRG “1S IN BCC MATCH SET? 
026500 001401 BEQ 50$ 
026502 104015 ERROR 15 :IN BCC MATCH ERROR 
026504 50$: 
026504 104412 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
026506 021204 021204 “GET LAST HALF 
026510 116137 000004 001301 MOVE 4(R1),$TMP1+1  =PUT IN $TMP1 
0 6516 9737 000377 001300 BIC #377, $TMP1 :CLEAR LO BYTE 
6524 053737 001300 001302 BIS stmpi,stmp2 :16 BIT BCC NOW IN S$TMP2 
026532 023737 031230 001302 CMP CALBCC,S$TMP2 :1S IT CORRECT? 
026540 001401 BEQ 45$ :BR IF OK 
026542 104027 ERROR 
:CHECK THAT CHARACTER LOADED WITH SOM WAS RECEIVED (000) 
026544 004737 031066 45$: PC, INRDY :WAIT FOR INRDY 
026550 104412 ‘NEXT WORD 1S INSTRUCTION, ROMCLK PC=5304 
026552 021204 GET RECEIVE DATA 
026554 016104 000004 4(R1) RG -;PUT “FOUND” IN R4 
026560 005005 R5 :PUT EXPECTED’ IN RS 
026562 120504 RS,R4 :1S RECEVIED DATA CORRECT? 
026564 001401 42$ : 
026566 104010 10 ‘RECEIVE DATA ERROR 
sCHECK TO SEE THAT SECOND FOUR CHARACTER MESSAGE 
“WAS RECELVED CORRECTLY (0,125,252, 377) 
026570 012703 000004 42$: MOV #4 ,R3 :R3=CHARACTER COUNT 
026574 012702 032012 MOV #MESDAT,R2 ‘LOAD MESSAGE POINTER IN R2 
026600 004737 031066 43$: JSR PC, INRDY “WAIT FOR INRDY 
026604 104412 ROMC “NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
02 021204 021204 : 
0 $610 016104 000004 MOV 4(R1),R4 ;PUT “'FOUND'' IN R4 
026614 112205 MOVB  (R2)+.R5 ‘PUT EXPECTED’ IN RS 
026616 120504 C RS, RG :1$ RECEIVED DATA CORRECT? 
026620 001401 BEQ 4a$ “BR IF YES 
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CZ2KCF.P11  O8=JUL-80 08:24 BASIC RECEIVER TESTS SEQ 0105 
5424 026622 104010 ERROR 10 ;RECEIVE DATA ERROR 
5425 026624 005303 44%: DEC R3 “DEC CHARACTER COUNT 
426 026626 001364 BNE 43$ “BR IF NOT DONE YET 
6428 :CHECK TO SEE THAT IN BCC MATCH IS SET 
3429 :AND THAT THE BCC WAS RECEIVED CORRECTLY 
5431 026630 004737 031066 JSR PC, INRDY ;WAIT FOR INRD 
5432 026634 104412 ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
5433 026636 021204 021204 “GET FIRST HALF OF CRC 
5434 026640 116137 04 001302 MOVB 4(R1).$TMP2 :PUT IN $TMP2 
$435 026646 042737 177400 001302 BIC #1774 460. $TMP2 :CLEAR HI BYTE 
436 026654 004737 031066 JSR PC, INRDY :WAIT FOR INRDY 
5437 026660 104412 OMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
438 026662 021244 021244 
5439 02 016104 004 MOV 4(R1), RS :PUT '"FOUND'’ IN R4 
$440 026670 042704 000376 BIC #376,R4 :CLEAR UNWANTED BITS 
5441 026674 012705 000001 MOV #1 ,R5 “PUT EXPECTED’ IN RS 
$442 026700 120504 C R5RG :1§ IN BCC MATCH SET? 
$443 026702 001401 BEQ 51$ 
5444 026704 104015 ERROR 15 :IN BCC MATCH ERROR 
5445 026706 51$: 
$446 026706 104412 ROMCLK :NEXT WORD 1s. INSTRUCTION, ROMCLK PC=5304 
5447 026710 021204 021204 :GET LAST H 
$448 026712 116137 000004 001301 MOVB 4(R1),$TMP1+1 PUT IN STHPT. 
5449 026720 042737 000377 001300 BIC #377, $TMP1 :CLEAR LO BYTE 
5450 026726 053737 001300 001302 BIS STMP1.STMP2 :16 BIT BCC NOW IN $STMP2 
5451 026734 025737 031230 001302 CMP CALBCC,$TMP2 :1S IT CORRECT? 
5452 026742 001401 BEQ 5$ :BR IF OK 
5453 026744 104027 ERROR 27 
5454 026746 S$: 
5455 
5456 
5457 pect ela ata aa TEST 54 eeeaaeaeeeeeaeeeeereeereere 
5458 ssEReTY SILO TEST 
5459 *LOAD SILO WITH 2. SYNCS, 4 CHAR MESSAGE, SINGLE CLOCK 
5460 [UNTIL THE SILO IS EMPTY, LOAD 4 MORE CHARACTERS IN THE 
5461 ;*S1L0. GIVE MORE TICKS, AND VERIFY THAT ONLY FIRST 
5462 reg CHARACTER MESSAGE WAS RECEIVED AND THAT RTS IS CLEAR 
5463 SRSRSRESTAARASSSSAAAATAAAARERAAARERAARATRARAARARAARAARARERARARRERARERAEEE 
5464 
5465 ; TEST 54 
5467 FRR AAARAAAAATSAAA SAAR AAT AAKEAARAAAAARARAAKRERAARERARARRAEE 
5468 026746 000004 T8154: SCOPE 
5469 026750 012737 54 001202 MOV #54, STSTNM LOAD THE NO. OF THIS TEST 
5470 026756 012737 027200 001442 MOV #TST55 NEXT POINT TO THE START OF NEXT TEST. 
5471 :R1 CONTAINS BASE KMC11 ADDRESS 
5472 026764 104410 MSTCLR ‘MASTER CLEAR KMC11 
54 026766 012711 004 MOV eBiti (Ry) “SET LINE UNIT TOOP 
5474 0267 012702 032012 MOV DAT :R8 POL POINTS TO MESSAGE 
5475 02 776 012700 MOV fee T 
5476 027002 004737 031374 JSR PC, ‘Tp LOAD SILO WITH TWO SYNCS 
547 927006 004737 030412 JSR PC .OUTRDY WAIT FOR y 
5478 02701 004537 031530 JSR R5.MESLD LOA D MESSAGE IN SILO 
5479 027016 032012 ME SDAT “START OF MESSAGE 
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1 08-JUL-80 08:24 BASIC RECEIVER TESTS SEQ 0106 
027020 000004 4 : CHARACTER COUNT 
027022 004737 030260 JSR PC,OCOR “WAIT FOR OCOR 
os70 5 090537 Bot 380 real mesiD’” sett Oke CHARACTERS fo SI 0 
057086 | O82072 MESDAT . 
027040 000004 P 
027042 004737 030260 JSR PC,OCOR 
027046 104413 000005 DATACLK, 5 :CLOCK UNTIL RTS IS CLEARED 
027052 104412 ROMCLK “NEXT WORD 1S INSTRUCTION, ROMCLK PC=5304 
027054 021264 021264 “GET RTS 
027056 032761 000040 000004 BIT #B1T5,4(R1) 1S iT CLEAR? 
027064 001401 BEO 5$ ‘BR IF YES 
027066 104034 ERROR 34 ERROR, RTS NOT CLEAR 
027070 104413 S$: DATACLK, 41 :CLOCK XMITTER SOME MORE 
027074 004737 031066 1$: JSR PC, INRDY ; 0K LETS CHECK WHAT WAS RECEIVED 
027100 104412 ROMCLK "NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
027102 021204 021204 GET RECEIVE DAT 
027104 016104 000004 MOV 4(R1) RS PUT IT IN WRG 
027110 112205 MOVB = (R2)+.R5 = EXPECTED’ 
027112 120504 CMPB aR, RG te DATA CORRECT? 
027114 001401 BEQ 2$ :BR IF OK 
027116 104010 ERROR 10 :DATA ERROR 
027120 005300 2$: DEC RO “DEC CHAR COUNT 
027122 001364 BNE 1$ :BR IF NOT DONE YET 
027124 004737 031066 3$: JSR PC, INRDY “WAIT FOR INR 
27130 104412 ROMCL “NEXT WORD is INSTRUCTION, ROMCLK PC=5304 
027132 021204 021204 :GET RECEIVE, DAT 
027134 016104 000004 MOV 4(R1),R4 me! “ 
027140 012705 000377 MOV #377,R5 :R Texpectep™ 
027144 120504 CMPB aR, RG E 377 
027146 001401 BEQ ‘eR Rif fs 
027150 104010 ERROR 10 sERROR, TRANSMITTER DID NOT ABORT 
027152 004737 031066 4$: JSR PC, INRDY “WAIT FOR INRDY 
027156 104412 ROMCLK -NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
7160 021204 021204 :GET RECEIVE DAT 
027162 016104 000004 MOV 4(R1),R4 :PUT IT IN Me OUND" 
27166 012705 000377 MOV #377,R5 :R5 = “EXPECTED'' 
027172 120504 CMPB RS, RG “SHOULD SEE 377 
027174 001401 BEQ 10$ “BR IF OK 
027176 104010 ERROR 10 CERROR, TRANSMITTER DID NOT ABORT 
027200 10$: 
PeRAeTA Ree eee ree eeeereeerere TEST 55 REKTAAAAKRERRARERARRETAAETEE 
**HALF DUPLEX TEST 
:*SET LINE UNIT LOOP AND HALF DUPLEX, SEND SYNCS AND A 
: MESSAGE - VERIFY THAT IN-ACTIVE AND IN-READY ARE CLEAR 
PARR RBARRAABRAAAAABREARERRLARLALASASELELERE RARE ERR RASA S SALE RESALES SS 
; Test $5 
s% POORER eeeeeerereeeeeeeeeeeeeaaeeeadeeeneeeneereeanereeeeere 
027200 900004 TST55: SCOPE 
027202 012737 000055 001202 MOV #55, $TSTNM LOAD THE NO. OF THIS TEST 
027210 012737 027316 001442 MOV #15156, NEXT : BOIN NT TO THE START OF NEXT TEST. 


;R1 CONTAINS BASE KMC11 ADDRESS 
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000004 
000257 


BASIC RECEIVER TESTS 





MSTCLR ;MASTER CLEAR KMC11 
V #12,R2 ;SAVE R2 FOR TYPEOUT 
MOV #B1T11,(R1) ;SET LINE UNIT LOOP 
000004 MOV #B1T4,4(R1) ;LOAD PORTS 
ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122113 ;SET H/D BIT 
JSR PC,SYNLD ;LOAD 2 SYNCS 
JSR PC ,OUTRDY ;WAIT FOR OUTRDY 
SR RS,MESLD ;LOAD 4 CHAR MESSAGE 
MESDAT ;ADDRESS OF MESSAGE 
; CHARACTER COUNT 
JSR PC ,OCOR ;WAIT FOR OCOR 
DATACLK, 73 ;SEND MESSAGE 
ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021244 ;READ LU-12 
MOV 4(R1),R4 ;PUT ‘"FOUND’’ IN RG 
BIC #257,R4 ;CLEAR UNWANTED BITS 
CLR R5 7R5 = “‘EXPECTED"’ 
CMPB R5,R4 ; IN-ACTIVE AND IN-RDY SHOULD BE CLEAR 
BEQ 1$ ;BR IF OK 
1 ERROR 35 sERROR BOTH ARE NOT CLEAR 
seeeeeeeereteteterereraezene TEST $56 saeanceneeenaraaeaeeereenee 
;*DDCMP CABLE DATA TEST 
s*THIS TEST LOADS OUT Vg: WITH THE FOLLOWING: 
:*THE 16 CHARACTERS INCLUDE A FLOATING ONE AND ZERO 
;*THE DATA IS TRANSMITTED OVER THE CABLE USING THE INTERNAL CLOCK 
:*RECEIVED DATA IS VERIFIED AS IS IN BCC MATCH 
;*LOOP=BACK CONNECTOR MUST BE ON TO RUN THIS TEST 
5 RR ARAAAATAAEEAR AREA AEA RARER AAAAAARAAARARAAAEKARRATEREAeAE 
;. FEST 36 
FFARR REAR RATHER EEHAATEA AAA AAA AAAEAAAAARAEERAREAERAARRAREREEES 
TST56: SCOPE 
001202 MOV #56,STSTNM ; LOAD THE NO. OF THIS TES 
001442 MOV #TSTS7, NEXT ; POINT TO THE START OF NEXT TEST. 
;R1 CONTAINS BASE KMC11 ADDRESS 
MSTCLR sMASTER CLEAR KMC11 
002050 BIT #B1T14,STAT1 :SKIP TEST IF NO 
BEQ $ ;LOOPBACK CONNECTOR ON 
MOV #B1T11,¢(R1) :SET LINE UNIT LOOP 
JSR PC ,SYNLD ;LOAD 2 SYNCS 
JSR PC ,SYNLD ;LOAD 2 MORE SYNCS 
031226 MOV #CRC16, XPOLY ;LOAD POLYNOMIAL FOR SOFT CRC CALC 
CLR i; CLEAR OLD BCC 
MOV #16. ,R5 ; CHARACTER COUNT 
MOV #FLTDAT,R2 :R2= POINTER 
7$ MOVB (R2)+,5$ SLOAD CHAR FOR SOFT BCC CALC. 
JSR RS ,SIMBCC :CALC SOFT BCC 
10 :SHIFT COUNT 
5$: 0 : CHARACTER 
6$: 0 ;OLD BCC 
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2 0 7422 013737 031230 027420 MOV CALBCC.6$ ‘LOAD OLD BCC 
7430 005303 DEC R3 ‘D COUNT 
027432 001 364 BNE 7$ BR IF NOT DONE YET 
027434 004537 031530 JSR RS ,MESLD LOAD SILO 
027440 032016 FLTDAT ‘MESSAGE ADDRESS 
027442 000020 16. “CHARACTER COUNT 
027444 004737 031504 JSR PC,EOM “LOAD AN EOM 
027450 537 031530 JSR RS.MESLD “LOAD SILO 
027454 032016 FLTDAT “MESSAGE ADDRESS 
027456 000020 16. ;CHA RACTER COUNT 
027460 004737 031504 JSR PC,.EOM :LOAD AN EOM 
027464 004537 031530 JSR R5.MESLD ‘LOAD SILO 
027470 032016 FLTDAT :MESSAGE ADDRESS 
027472 900020 16. * CHAR ACTER COUNT 
027474 004737 031504 JSR PC,EOM :LOAD AN EOM 
027500 004737 030260 JSR PC.OCOR “WAIT FOR OCO 
027504 005011 CLR cR1) :CLEAR LINE UNIT LOOP 
27506 012700 000003 MOV #3,RO :RO = MESSAGE COUNT 
0 027512 012703 000020 MOV #16.,R3 *R3= CHARACTER COUNT 
1 027516 012702 032016 MOV #FLTDAT,R2 “LOAD MESSAGE POINTER IN R2 
2 027522 004737 031066 1$: JSR PC, INRDY sWALT FOR INRDY 
3 027526 104412 ROMCLK T WORD IS INSTRUCTION, ROMCLK PC=5304 
4 027530 021204 021204 ‘SET DATA FROM IN SILO 
5 027532 016104 000004 MOV 4(R1) RG PUT CHARACTER IN ‘’FGUND’’ 
6 027536 112205 MOVB (R2)+.R5 :PUT "EXPECTED" IN RS 
7 027540 120504 CMPB R5,R4 :1S RECEIVED DATA CORRECT 
8 027542 001401 BEQ $ “BR IF OK 
9 0 7546 104025 ~ ERROR 25 [DATA ERROR 
1 027546 005303 DEC R3 :DEC CHARACTER COUNT 
027550 001 1$ :BR IF NOT DONE THIS MESSAGE 
3 027552 012703 000020 MOV #16. ,R3 SRESET CHARACTER COUNT 
:CHECK TO SEE THAT IN BCC MATCH IS SET 
:AND THAT THE BCC WAS RECEIVED CORRECTLY 
027556 004737 031966 PC, INRDY :WAIT FOR INRDY 
027562 104412 :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
027 021204 ‘GET FIRST HALF OF CRC 
1 027 11613? 000004 001302 4(R1), STMP :PUT IN STMP2 
027574 062737 177400 001302 Nira 60.8 +t *CLEAR HI BYTE 
027602 737 031066 C, INR sWAIT FOR INRDY 
927606 104412 :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
5 027610 021244 ; : 
027612 016104 R1),R4 :PUT “FOUND'’ IN R4 
7616 042704 000376 a3%6 R4 CLEAR UNWANTED BITS 
7622 012705 wird :PUT EXPECTED’ IN RS 
027 120504 RS RO 71S IN BCC MATCH SET? 
0276 1401 25$ 
0 76 104015 ons :IN BCC MATCH ERROR 
027634 104412 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
0 7636 021204 021204 ;GET LAST HALF 
27640 116137 000004 001301 MOVB  4(R1) SIMPt +t IN $T 
027646 040737 000377 001300 BIC #377 2, StaP1 “CLEAR LO BYTE 
7 027654 053737 001300 001302 BIS STMP1.$ 716 BIT BCC NOW IN $TMP2 
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027662 023737 031230 001302 CMP CALBCC,$TMP2 ;1S IT CORRECT? 
027670 001401 BE 4s “BR IF OK 
02 032016 4$: MOV #FLTDAT,R2 sRESET MESSAGE POINTER 
00 DEC RO :DECRE 

07 BNE 1$ ‘BR IF NOT DONE 
20 3$: ADVANCE ; ADVANCE TO NEXT TEST 


MENT COUNTER 


5648 

5649 

5650 

5651 

5652 

5653 

5654 

5655 

5656 

5657 sekeeeeeeeeeeererererererean TEST 57 seanteneneneaaaceaanenenere 
5658 ;*DDCMP CABLE DATA TEST 

5659 :*THIS TEST LOADS OUT SILO WITH THE FOLLOWING: 

5660 :*4 SYNCS,59 DATA CHARACTERS,EOM WITH GARBAGE CHARACTER 
5661 : THE DATA IS TRANSMITTED OVER THE CABLE fot pee THE INTERNAL CLOCK 
5662 s*RECEIVED DATA IS VERIFIED AS IS IN BCC MATCH 

56635 ;*LOOP-BACK CONNECTOR MUST BE ON TO RUN THIS TEST 

5665 

5667 

668 

5670 

5671 

5673 

567 
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; _TEST 57 
, ise ab hea abaidnbieekerenedeaensetanteesseresecesecoses 
027706 000004 TST57: SCOPE 
027710 012737 000057 001202 MOV #57, $TSTNM ; LOAD THE NO. OF THIS TEST 
027716 012737 003662 001442 MOV #SEOP NEXT POINT TO THE END OF PASS HANDLER. 
2 Rt CONTAINS BASE KCI ADDRESS 
027724 104410 MSTCLR MASTER CLEAR 
4 027726 032737 040000 002050 BIT #BITIG,STAT! {SKIP TEST IF dy 
75 027734 001535 BEQ :LOOPBACK CONNECTOR ON 
5676 0277 12711 004000 MOV #B1T11,(R1) :SET LINE UNIT LOOP 
5677 027742 004737 031374 JSR PC,SYNLD :LOAD 2 SYNCS 
5678 027746 004737 031374 JSR PC, SYNLD “LOAD 2 MORE SYNCS 
5679 027752 012737 120001 031226 MOV WCRC16,XPOLY | :LOAD POLYNOMIAL FOR SOFT CRC CALC 
5680 027760 037 030010 CLR 6$ >CLEAR OLD BCC 
5681 027764 012703 73 MOV #59. ,R3 >CHARACTER COUNT 
682 02 012702 032012 MOV #MESDAT,R2 ;R2= POINT 
5683 027774 112237 030006 7$: MOVB = (R2)+,5$ [LOAD CHAR FOR SOFT BCC CALC. 
5684 0 004537 031122 JSR RS, SIMBCC :CALC SOFT BCC 
5685 0 000010 10 =SHIFT COUNT 
3686 0 000000 5$: 0 > CHARACTER 
5687 03001 6$: 0 :OLD BCC 
5688 030012 013737 031230 030010 MOV CALBCC,6% sLOAD OLD BCC 
5689 0 005303 DEC R3 :DEC COUNT 
5690 001 BNE 7$ *BR IF NOT DONE YET 
5691 030024 004537 031530 JSR R5,MESLD :LOAD SILO 
5692 30030 3201 MESDAT :MESSAGE ADDRESS 
569 $i 7 9. st 
5694 30054 737 031504 JSR PC,EOM ;LOAD AN EOM 
5695 0 737 030260 JSR PC,OCOR ;WALT FOR OCOR 
569% 0 11 (Ri) CLEAR LI LINE UNIT LOOP 
5697 0 12700 000073 =RO= CHARACTER COUNT 
5698 0 12702 032012 LOAD “HESSAGE POINTER IN R2 
5699 00473 031066 1$ “WA 1 FOR INRDY 
5700 104412 "NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
5701 030064 021204 GET DATA FROM IN SILO 
570 030066 016104 000004 PUT CHARACTER IN "“FOUND"' 
5703 030072 112205 “PUT EXPECTED’ IN RS 
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5704 030074 120504 CMPB aR, RG :1$ RECEIVED DATA CORRECT 
5705 030076 001401 BEQ 2$ “BR IF OK 
5706 030100 104025 ERROR 25 “DATA ERROR 
570? 030102 2$: 
£708 030102 005300 DEC RO :DECREMENT COUNTER 
3709 030104 001364 BNE 1$ “BR IF NOT DONE 
$711 :CHECK TO SEE THAT IN BCC MATCH IS SET 
5712 ‘AND THAT THE BCC WAS RECEIVED CORRECTLY 
5714 030106 004737 031066 JSR PC, INRDY sWAIT FOR INRDY 
5715 030112 104412 ROMCLK "NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
5716 030114 021204 021204 “GET FIRST HALF OF CRC 
5717 030116 116137 000004 001302 MOVB 4(R1),$TMP2 “PUT IN $TMP2 
5718 030124 042737 177400 001302 BIC #177460,$TMP2 CLEAR HI BYTE 
5719 030132 004737 031066 JSR PC, INRDY “WAIT FOR INR 
5720 030136 104412 ROMCLK “NEXT WORD is; INSTRUCTION, ROMCLK PC=5304 
5721 030140 021244 021244 
5722 030142 016104 000004 MOV 4(R1),R4 :PUT ‘FOUND’ IN 
5723 030146 042704 000376 BIC #376, R4 “CLEAR UNWANTED BITS 
5724 030152 012705 000091 MOV #15 “PUT EXPECTED’ IN RS 
5725 030156 120504 C RS RG *1S IN BCC MATCH SET? 
5726 030160 001401 BEQ 25$ 
5727 030162 104015 ERROR 15 :IN BCC MATCH ERROR 
5728 030164 25$: 
5729 030164 104412 ROMCLK :NEXT WORD 1s. INSTRUCTION, ROMCLK PC=5304 
5730 030166 021204 021204 :GET LAST H 
731 030170 11 137 000004 001301 MOVE 4(R1) stp tet ‘PUT IN N STAPL 
7 176 042737 000377 001300 BIC #377 ,$TH [CLEAR LO BYTE 
5733 030204 053737 001300 001302 BIS STMPi ene? :16 BIT ‘ace NOW IN $TMP2 
5734 030212 023737 031230 001302 CMP CALBCC,STMP2 31S IT CORRECT? 
5735 030220 001401 BEQ 3g :BR IF OK 
5736 030222 104027 ERROR 27 
5737 030224 104420 3$: ADVANCE : ADVANCE TO NEXT TEST 
5739 
5740 : SUBROUTINES 
5742 
5743 030226 GETSI: 
5744 THIS SUBROUTINE READS LU 17, AND PUTS IT INTO NITCH. 
3745 “NITCH 1S ROTATED LEFT UNTILL THE SI BIT IS IN CARRY 
5747 030226 104412 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
5748 030230 021 021 :PORT4_LU 17 
5749 030252 017737 151636 030256 MOV @KMPO4,NITCH :STORE LU 17 
5750 0302 106137 030256 ROLB  NITCH 
5751 g 266 1061 7 030256 ROLB WITCH 
s é 250 106137 030256 ROLB ~=-—sNITCH :PUT SI IN THE CARRY BIT 
5753 030254 000207 RTS PC 
5754 030256 000000 NITCH: 0 
Ht 
5757 030260 OCOR: 
5758 : THIS SUBROUTINE SPINS ON OCOR 
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THIS SUBROUTINE LOADS THE SILO WITH 3 SYNCS 
;AND THE CHARACTER PASSED TO IT. 
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Pil 08-JUL-80 08:24 SUBROUTINES SEQ 0111 
030260 104412 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
030262 06) 38 021364 : 4 LU 17 
geass 032777 000020 151602 BIT #B1T4,aKmMPOd :1S ocOR SET? 
030272 001772 BEQ OCOR : F NO 
030274 000207 RTS PC ;0K OCOR IS SET, GO BACK 
030276 SYNC: 
;THIS SUBROUNTINE LOADS THE SILO WITH THE NUMBER OF SYNC 
; CHARACTERS PASSED TO IT IN THE WORD AFTER THE JSR CALL 
AND A NON=SYNC CHARACTER (301) 
o30e76 013637 001276 MOV a(SP)+,$TMPO SET COUNT 
030302 062746 000002 ADD #2,-(SP) sADJUST STACK 
030306 012761 000026 000004 MOV #26,4(R1) ;LOAD PORTS 
030314 104412 ROMCLK s;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
030316 122114 122114 ;LOAD SYNC REGISTER 
030320 004737 030412 1$: JSR PC ,OUTRDY WAIT FOR OUTRDY 
030324 012761 000001 000004 V #1,4(R1) :LOAD PORTS 
030332 104412 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
030334 122111 122111 :SET SOM 
030336 012761 000026 000004 MOV #26,4(R1) sLOAD PORTS 
030344 104412 OMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
030346 122110 122110 ;LOAD OUT DATA 
030350 005337 001276 DEC STMPO ALL DONE? 
030354 001361 BNE 1$ :BR IF NOT 
030356 004737 030412 JSR PC ,OUTRDY sWAIT FOR OUTRDY 
Otte 005061 000004 CLR 4(R1) *LOAD PORTS 
030 104412 ROMCLK 7NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
030370 122111 122111 :SET SOM 
030372 012761 000301 000004 MOV #301,4(R1) ;LOAD PORTS 
030400 104412 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
030402 122110 122110 ;LOAD OUT DATA 
030404 004737 030260 JSR PC ,OCOR sWAIT FOR OCOR 
030410 000207 RTS PC 
030412 OUTRDY: : 
: THIS SUBROUTINE SPINS ON OUT READY 
Goes 12 005037 001306 se CLR STMPS CLEAR TIMER 
030416 104412 ROMCL* NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
030420 021224 021224 sPORT4 LU11 
030422 032777 000020 151444 BIT #8114, aKMPOS :1S OUT RDY SET? 
0304 001004 BNE 2% sBR IF YES 
030432 005237 001306 INC STMP4 : INC TIMER 
030436 001367 BNE 1$ ;KEEP CHECKING IF NOT DONE 
030440 104036 ERROR 36 sERROR, OUT READY NOT SET 
030442 000207 2$: RTS PC 
030444 CHAR: 
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UBROUTINES 


18: 


CHARSD: 


SILOLD: 


1$: 





MOV a(sP)+, $TMP1 — :GET CHARACTER 
ADD - (SP) “ADJUST STACK 
MOV "STMPO :SET FOR 3 SYNCS 
MOV a4 4(R1) i LOAD RT4 

ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122114 :LOAD SYNC REGISTER 

JSR PC ,OUTRDY “WAIT FOR OUTRDY 

MOV #1.4(R1) “LOAD PORTS 

ROMCLK ;NEXT WORD 1S INSTRUCTION, ROMCLK PC=5304 
122111 SOM 

V #26,4(R1) ; LOAD PORTS 

OMCLK NEXT WORD Is INSTRUCTION. POMCLK PC=5304 
122110 ‘LOAD OUT DAT 

DEC $1HPO ‘ALL DONE? 

BNE 1$ ;BR IF NOT 

JSR PC,OUTRDY “WAIT FOR OUTRDY 

MOV STMP1,4(R1) :LOAD PORTS 

ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122110 *LOAD OUT DATA 

JSR PC,OCOR :WAIT FOR OCOR 

RTS PC 


; THIS SUBROUTINE LOADS THE SILO WITH THE CHARACTER PASSED TO IT. 


@(SP)+, STAMP ;GET CHARACTER 
#2,-(SP) ;ADJUST STACK 
PC ,OUTRDY :WAIT FOR OUTRDY 
STMPT ,4(R1) LOAD PORTS 
ROMCLK sNEXT WORD ER INSTRUCTION, ROMCLK PC=53504 
122110 LOAD OUT DAT 
JSR PC ,OUTRDY WALT FOR OUTR 
LK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
10 ;LOAD GARBAGE CHAR 
ce ;WAIT FOR OCOR 





; THIS SUBROUTINE FILLS THE oo SILO 


: WITH A BINARY COUNT PATTE 

#73, STMP1 :LOAD COUNT 

SCHAR sFIRST TIME HERE? 
“BR IF BITSTUFF 

2$ :BR IF NO 

#2,$TMP1 ‘ADD 2 TO CHARACTER COUNT 

MPO :SET FOR 3 SYNC 

#26,4(R1) ‘LOAD PORTS 
“NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
“LOAD SYNC REGIS 

PC ,OUTRDY “WAIT FOR OUTRDY 

#1.4(R1) ‘LOAD PORTS 
:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 





SEQ 0112 
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$872 030704 012761 000026 000004 MOV #26,4(R1) sLOAD PORTS 
5875 030712 104412 ROMCLK “NEXT WORD 1S INSTRUCTION, ROMCLK PC=5304 
5874 030714 122110 122110 “LOAD OUT DAT 
5875 030716 005337 001276 DEC STMPO ALL ? 
5876 030722 001361 BNE 1$ ;BR IF NOT 
5877 030724 004737 030412 2$: JSR PC ,QUTRDY sWAIT FOR OUTRDY 
5878 tr 013761 031062 000004 MOV SCHAR,4(R1) ‘LOAD PORT 
5879 0307 104412 ROMCLK :NEXT WORD + INSTRUCTION, ROMCLK PC=5304 
5880 030740 122110 122110 LOAD OUT DAT 
5881 030742 005737 031064 TST STUFLG BITSTUFF27? 
5882 030746 001407 BEQ % : F NO 
5883 030750 013737 031062 030762 MOV SCHAR, 5$ -IT IS SDLD SO CHECK BITSTUFFING 
5884 tLe 004537 031612 JSR RS. STFFCL “ADD ANY BIT STUFF CLOCK TICKS 
5885 0307 000000 S$: 0 ;CHARACT ER 
5886 030764 000010 10 HIFT COUNT 
5887 0307 OO 3g er 031062 6$: INC SCHAR :NEXT CHARACTER 
5888 030772 022737 000400 031062 CMP #400,SCHAR ‘ALL DONE? 
5889 031000 001403 BEQ 
5890 031002 005337 001300 DEC STMP1 ;DECREMENT COUNT 
5891 031006 001346 BNE c$ “BR IF NOT DONE 
5892 031010 004737 030260 3$: JSR PC,OCOR :WAIT FOR OCOR 
5893 031014 00020 RTS PC 
5894 031016 005037 ea. 4$: CLR SCHAR ;START PATTERN AT ZERO 
5895 031022 012737 1777 031064 MOV #-1,STUFLG : SET gp he FLAG 
5896 031030 005037 032010 CLR BITCON : CLEAR STUFF COUNT 
5897 031034 062737 000002 001300 ADD #2,STMP1 D 2 TO CHARACTER COUNT 
5898 031042 9012761 000001 000004 MOV #1,4(R1) ert poi IN PORTS 
ry a4 O3 50 Hb coh egal sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
5 031052 122111 122111 sSET SOM! 
5901 031054 104412 L :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
5902 031056 122110 122110 ;LOAD GARBAGE CHAR 
5903 031060 000721 23 :GO LOAD SILO 
5904 031062 000000 SCHAR: 0 
5905 031064 000000 STUFLG: 0 
5906 
5907 
5908 031066 INRDY: 
5909 1S SUBROUTINE SPINS ON INRDY 
5910 $ NROY FAILS TO SET ys at. Lees OUT AND AN 
5911 : is T ae: fi. BETTER Ry THIS 
591 : AN aro stsen tie ALTERING HE NUMBER 
591 3 POADED. THE NUMBER 
4b ; TER THE DELAY. 01S THE’ LoneeSst *DELAY. 
coe Oe toee 012737 000000 001276 MOV #0, STMPO ;SET UP DELAY COUNTER 
91 31074 1$: 
8 031074 104412 LK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
5919 oa 978 1366 021244 >PORT4 LUT2 
59 g 1100 77 000020 150766 BIT #B1T4 ,aKMPO4 31S jer SET? 
5921 be 1 BNE “BR IF YES 
59 ¢ 03111 7 001276 INC TMPO ; INC DELAY 
5 031114 1367 BNE 1$ : TRY AGAIN 
59246 4 bbs 1 7 ERROR 37 sERROR,NO INRDY 
5925 0311 000207 23: RTS PC sRETUR 
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000002 
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000026 
030412 
000001 
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001276 
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031230 


000004 


000004 


UBROUT INES 
SIMBCC: 
*IN XPOLY. THE CORRE 
MOV 
MOV Magyee ST MPO 
MOV (R5)+.$TMP1 
MOV (RS) + CALBCC 
1$: MOV ALBCC, RO 
CLC 
ROR CALBCC 
ROR $TMP1 
ADC R 
ROR RO 
BCC 2$ 
MOV XPOLY,RO 
BIC CALBCC,RO 
BIC XPOLY, CALBCC 
BIS RO, CALBCC 
23: DEC 
BNE 1$ 
MOV CALBCC,RO 
ROR 
MOV (SP)+,RO 
RTS R5 
XPOLY: 0O 
rie : 0 
LRC8=200 
CRC16=120001 
CRC. CCITT=102010 
BCCLD: 
a(SP)+,STMP1 
#2,-(SP) 
MPO 
#26,4(R1) 
1$: PC ,OUTRDY 
#1,4(R1) 
#26,4(R1) 
STMPO 
BNE 1$ 
JSR PC ,OUTRDY 
MOV STMP1,4(R1) 
ROMCLK 


LS SS Se ttt 


THIS SUBROUTINE CALCULATES THE CRC USING POLYNOMIAL GIVEN 
CRC IS $LPADRED IN CALBCC, “+d THE 
;STATE OF THE LSB OF THE BCC IS SLPADRED IN THE C BIT 


CT 


s SAVE RO ON STACK 


BCC 
PUT OLD “Bcc IN RO 


;SHIFT OLD BCC 

: SHIFT CHARACTER 

;ADD CHAR CARRY TO OLD BCC 
:PUT BITO TO CARRY BIT 
;CARRY IS FEEDBACK BIT 

;1F FEEDBACK = 1 


;EXCLUSIVLY OR XPOLY TO CALBCC 


;DEC SHIFT COUNT 

:BR IF NOT DON 

>PUT RESULT IN RO 
;SHIFT BITO TO CARRY 
RESTORE RO 

:SLPADR 


; THIS ptt ha LOADS THE OUT SILO WITH 2 res 








ONE 


CHARACTER a TO 


WITH SET, AND 
:WITH THE SOM BIT CLEAR (ENABLE CRC) 








>GET py thy 

s ADJUST 

> SET FOR es SYNCS 
PORT 


NEXT WORD IS INSTRUCTION, 
; LOAD dig REGISTER 
sWAIT FOR OUTRDY 


PORT4 
NEXT WORD IS INSTRUCTION, 


:LOAD PORT4 
sNEXT a sf INSTRUCTION, 
: LOAD OUT 

> ALL DONE? 


et ee FOR. OUTRDY 


7 LOA 
NEXT WORD IS INSTRUCTION, 


ROMCLK PC=5304 


ROMCLK PC=5504 


ROMCLK PC=5304 


ROMCLK PC=5504 


SEQ 0114 
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C2KCF P11 08-JUL-80 08:24 SUBROUTINES SEQ 0115 
5984 031334 122110 122110 :LOAD OUT DATA 
5985 031336 004737 030260 JSR PC,OCOR *WAIT FOR OCOR 
5986 031342 000207 RTS PC 
5987 
5988 
5989 031344 GETQO: 
5990 ;THIS SUBROUTINE READS THE STATE OF THE TRANSMIT 
ried :BCC LSB AND PUTS IT IN THE CARRY BIT 
5993 031344 104412 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
5994 031346 021364 021364 *PORT4 LU-17 
5995 031350 106177 150520 ROLB aKMPO4 : PUT a0 IN CARRY 
5996 031354 000207 RTS PC RETURN 
5997 
5998 
5999 031356 GETQI: 
6000 : THIS SUBROUTINE READS THE STATE OF THE RECEIVE 
pred :BCC LSB AND PUTS IT IN THE CARRY BIT 
6003 031356 104412 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
6004 031360 021364 021364 sPORT4 LU-17 
6005 031362 106177 150506 ROLB akMPO4 ;PUT Q0 IN CARRY 
6906 031366 106177 150502 ROLB akMPO4 PUT QI IN CARRY 
6007 031372 000207 RTS PC > RETURN 
6008 
6009 
6010 031374 SYNLD: 
6011 sTHIS SUBROUTINE LOADS OUT SILO WITH 
opie *2 SYNC CHARACTERS WITH SOM SET 
6014 031374 012737 000002 001276 STMPO LOAD COUNTER FOR 2 SYNCS 
6015 031402 012761 000026 000004 a56 cert) :PORTS 26 
6016 031410 104412 NEXT BORe IS INSTRUCTION, ROMCLK PC=5304 
6017 031412 122114 sion § REG 
6018 031414 004737 030412 1$: PC ,OUTRDY “WAIT POR OUTRDY 
6019 031420 012761 000001 000004 #1,4(R1) *LOAD PORTS 
6020 031426 104412 NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
6021 0314 122111 :SET SOM 
6022 031432 012761 000026 000004 #26,4(R1) 26 
6023 031440 104412 ;NEXT “WORD IS INSTRUCTION, ROMCLK PC=5304 
6024 031442 122110 LOAD OUT DATA WITH SYNC 
6025 031444 005337 001276 STMPO :DECRERENT COUNTER 
6026 031450 001361 1$ sBR IF NOT DONE 
rr 031452 000207 PC aT 
6030 031454 SOM: 
6031 THIS SUBROUTINE LOADS SOM AND OUT DATA WITH A 
pet *GARBAGE CHARACTER (0) 
6034 031454 004737 030412 JSR PC ,QUTRDY WAIT FOR OUTRDY 
6035 031460 012741 000001 000004 MOV #1.4(R1) =P 
60 031 104412 ROMCLK sNEXT QORD IS INSTRUCTION, ROMCLK PC=5304 
603 Baie 0 Aceh 122111 
6038 031472 005061 000004 CLR 4(R1) ‘CLEAR DATA 
6039 031476 104412 ROMCLK *NEXT WORD Is INSTRUCTION, ROMCLK PC=5304 
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117 
TINES 
122110 sLOAD GARBAGE CHARACTER 
RTS PC “RETURN 
EOM: 
:THIS SUBROUTINE LOADS EOM AND OUT DATA WITH A 
;GARBAGE CHARACTER (2) TO ENABLE TRANSMISSION OF BCC 
JSR PC,OUTRDY sWAIT FOR OUTRDY 
MOV #2,4(R1) “Pp 
ROnCL ST OR QORD IS INSTRUCTION, ROMCLK PC=5304 
ROMCLK NEXT DORD 1S INSTRUCTION, ROMCLK PC=5304 
122110 “LOAD GARBAGE CHARACTER 
RTS PC > RETURN 
MESLD: 
:THIS SUBROUTINE LOADS SILO WITH MESSAGE 
:THE FIRST ARUGUMENT IS THE ADDRESS OF THE MESSAGE 
;THE SECOND ARGUMENT IS THE NUMBER OF CHARACTERS IN THE MESSAGE 
MOV RO,-(SP) :SAVE RO 
MOV (R5)+,R0 sRO=MESSAGE POINTER 
MOV (R5)+,STMPO :$T =CHARACTER COUNT 
1$: JSR PC ,OUTRDY :WAIT FOR OUT RDY 
crO)+,4(R1) : LOAD PORT4 WITH CHARACTER 
R CLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122110 :LOAD OUT DATA SILO 
DEC STMPO -DEC CHAR COUNT 
BNE 18 : 
JSR PC,OCOR . 
MOV (SP) +.RO ° 
RTS R ; 
CLRIO: 
:THIS SUBROUTINE SETS IN CLR AND OUT CLR TO 
SCLEAR THE TRANSMIT AND RECEIVE BCC REGISTERS 
MOV #B1T7,4(R1) LOAD PORT4 
LK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122112 :SET IN CLR 
ROMCLK “NEXT WORD is INSTRUCTION, ROMCLK PC=5304 
122111 :SET OUT CLR 
RTS PC > RETURN 
STFFCL: 
sTHIS SUBROUTINE ADDS ANY NECESSSARY BIT STUFF CLOCK TICKS 
:FIRST ARGUMENT IS CHAR, SECOND ARGUMENT IS SHIFT COUNT. 
MOV RO,-(SP) :SAVE RO 
MOV (R5)+,R0 :PUT CHAR IN RO 
MOV (R5)+,STMP2 :PUT SHIFT COUNT IN $TMP2 
1$: RORB = RO “LOOK AT NEXT BIT 


SEQ 0116 


1 ~JUL-80 08:24 

096 031624 193403 BCS 2$ 
6097 0316 : 7 032010 CLR [TCON 
6098 0316 000412 BR § 
6099 0316 0052 032010 2$: INC BITCON 
6100 031640 022737 000005 032010 CMP #5,BITCON 
6101 031646 001004 BNE $ 
610¢ 031650 005037 032010 CLR BITCON 
6103 031654 104413 01 DATACLK, 
6104 031660 005337 001302 3$: DEC STMP2 
6105 031664 001356 BNE 3 
6106 031666 012600 MOV (SP)+,RO 
6107 031670 000205 RTS 
6108 
6109 
6110 031672 STFFCK: 
6112 :1S STUFFING ZEROS WHEN IT § 
6113 
6114 
6115 031672 010046 MOV RO,-(SP) 
6116 031674 012500 MOV (R5)¢,R0 
6117 031676 012537 001302 MOV (R5)*, STMP2 
6118 031702 1 1$: R RO 
6119 031704 198203 acs 2$ 
6120 031706 005037 032010 CLR BITCON 
6121 031712 000416 BR $ 
6122 031714 005237 032010 2$: INC BITCON 
61 0 17 022737 000005 032010 CMP #5,BITCON 
6124 031726 001010 BNE 
6125 031730 005037 032010 CLR BITCON 
6126 031734 104413 000001 DATACLK, 
6127 031760 004737 030226 JSR PC,GETS! 
6128 031744 103001 BCC 3$ 
6129 031746 104030 ERROR 30 
6130 031750 005337 001302 3$: DEC $TMP2 
6131 031754 001352 BNE 1$ 
6132 031756 012600 MOV (SP)+,RO 
6133 031760 000205 RTS R5 
6134 
6135 
6136 031762 CTSDLY: 
6137 
6138 
6139 
6140 031762 010046 MOV RO,-(SP) 
6141 031764 012700 000032 MOV #32,R 
6142 031770 027777 147250 1472466 1$: CMP asTKkS,astKs 
6143 031776 005300 DEC RO 
6144 2000 001373 BNE 1$ 
6145 032002 012600 MOV ($P)+,RO 
61 2004 000207 RTS PC 
614 
6148 
6149 032 000176 :  B<01111110> 
6150 032010 000000 BITCON: 
6151 03201 000 125 252 MESDAT: .BYTE 0,125,252,377 


Se es 


A MARK 
PACE, CLEAR 1°S COUNTER 


yi ive 1°S COUNTER 


Se Ge Ge Ge Ge Se Fe Be Be Se Be Be 


;THIS SUBROUTINE CHECKS TO SEE IF TRANSMITTER 


HOULD. FIRST ARGUMENT 


:1S THE CHARACTER, SECOND ARGUMENT IS SHIFT COUNT. 


;SAVE RO 


;PUT CHAR IN RO 

sPUT SHIFT COUNT IN STMP2 

;SHIFT OUT NEXT BIT 

:BR IF IT IS A MARK 

3i¥ o A SPACE, CLEAR 1°S COUNTER 
INC CONSECUTIVE I°S COUNTER 

:2_IN A ROW YET? 


:YES, SO START OVER 
“EXTRA TICK TO STUFF ZERO 
*LOOK AT 


IF YES 
NO, ERROR ZERO WAS NOT STUFFED 
; COUNT 


:THIS SUBROUTINE WASTES TIME UNTIL CTS SETS. 
;BUT HOPEFULLY NOT SO LONG THAT THE SILO RUNS OUT 


:SAVE RO 
:LOAD RO WITH COUNT 
sWASTE TIME 
:DECREMENT COUNTER 
:00 IT AGAIN IF NOT = 0 
sRESTORE RO 


FLAG CHARACTER 


SEQ 0117 


-P1 
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1 08-JUL-80 UBROUTINES SEQ 0118 
§85016 301 002 004 FLIDAT: .BYTE 1,2,4,10,20,40,100,200, 376,375,373, 367,357, 337.277.177 
052021 010 020 040 ellie 
t 024 100 gu 376 

0 soe? 375 73 367 

032032 357 337 277 

032035 177 

032036 100 140 160 STUFDT: .BYTE 100,140,160,170,3,300,174,176,177,1 

032041 170 003 300 

032044 174 176 177 

032047 001 

032050 363 347 317 BYTE 363,347,317,200,0,377,377,377,200, 37 

032053 200 0C0 377 

032056 377 377 200 

032061 037 ins 

032062 046200 047111 020105 €EM1: eASCIZ <200>/LINE UNIT INITALIZATION TEST/ 

032120 046200 047111 020105 €EM2: -ASCIZ <200>*LINE UNIT REGISTER READ/ONLY TEST* 
032163 200 044514 042516 EMS: eASCIZ <200>*LINE UNIT REGISTER WRITE/READ TEST* 
032227 200 044514 042516 EMA: -ASCIZ <200>/LINE UNIT INTERNAL CLOCK FAILURE/ 
032271 200 051124 047101 EMS: -ASCIZ <200>/TRANSMITTER DATA OR/ 

032321 200 peteee 042503 EM6: eASCIZ <200>/RECEIVER TEST/ 

032340 051200 041505 044505 €EM7: eASCIZ <200>/RECEIVER DATA ERROR/ 

032365 200 047515 042504 EM10: -ASCII <200>/MODEM SIGNAL ERROR/ 

032410 052200 044510 020123 ~ASCII <200>/THIS ERROR COULD BE CAUSED IF YOU HAVE v.35 AND/ 
032470 04 ee aks, 051517 -ASCII <200>/AUTOSIZED. YOU MUST MANUALLY ANSWER QUESTIONS IF/ 
032551 2 047531 020125 -ASCIZ <200>/YOU HAVE V.35/ 
032570 ore b2 9288 ERER EM11: eASCIZ < >/TRANSMITTER CRC ERROR/ 
032617 0425 0425035 EMI2: -ASCIZ <200>/RECEIVER CRC ERROR/ 

32643 200 047111 041 eASCIZ <200>/IN BCC MATCH ERROR (LU REG 12)/ 
032703 200 051124 047 eASCIZ <200>/TRANSMITTER FAILED TO GO TO MARK STATE/ 
032753 200 040503 046 -ASCIZ <200>/CABLE DATA TEST/ 
032774 040514 020 eASCIZ <200>/FL RROR/ 

33010 052200 040522 051 ~ASCIZ <200>/TRANSMITTER FAILED TO STUFF A ZERO/ 
033054 05 044527 041 eASCIZ <200>/SWITCH PAC TEST/ 
033075 2 041101 051 -ASCIZ <200>/ABORT ERROR/ 

33112 052200 040522 051 -ASCIZ <200>/ TRANSMITTER ERROR/ 
033135 200 0510 043 eASCIZ <200>/HALF DUPLEX TEST/ 
033157 200 052517 020 -ASCIZ <200>/0UT READY NOT SET/ 
033202 044600 020116 042 ~ASCIZ <200>/IN READY NOT SET/ 
033224 042600 050130 041 -ASCIZ <200>/EXPECTED FOUND/ 

033245 200 054105 042 ~ASCIZ <200>/EXPECTED FOUND LU-REGISTER/ 

033303 200 044103 051 ASCIZ <200>/CHARACTER BIT THAT FAILED/ 

033341 200 047503 051 eASCIZ <200>/CORRECT CRC BIT THAT FAILED/ 

033401 200 054105 042 -ASCIZ <200>/EXPECTED FOUND SH 

033433 200 054105 042 eASCIZ <200>/EXPECTED FOUND CHARACTER  SHIFT/ 
033501 200 046102 041 -ASCIZ § >/BLOCK END NOT SET/ 

033524 051200 051524 042 eASCIZ <200>/RTS DID NOT CLEAR/ 

033550 

033550 000002 : 2 

033552 003 007 BYTE 3,7 

033554 001274 SREGS 

033556 003 002 BYTE 3,2 

033560 001272 $REG4 


————— ——=- 
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CZ2KCF.P11 08-JUL-80 08:24 SUBROUTINES SFQ 0119 
033562 000003 DT2: 3 
033564 003 007 BYTE PR 
baeeee 001274 SREG 
033570 003 010 -BYTE 3,10 
033572 001272 SREGS 
033574 003 002 mere OCB 2 
033576 001266 $REG2 
033600 2 DT3: 
033602 003 017 BYTE 3,17 
033604 001274 SREGS 
033606 2 002 Y 2,2 
033610 001270 $REG3 
033612 2 DT4: 
033614 06 021 2) 
033616 031230 CALBCC 
033620 2 002 2 
033622 001270 SREG3 
Oaeese 3 DTS: 
033626 001 011 -BYTE 1,11 
033630 001462 ZERO 
033632 001 011 -BYTE 1,11 
033634 001464 ONE 
033636 002 002 -BYTE 2,2 
033640 001262 $REGO 
033642 3 DT6: 3 
033644 001 011 -BYTE 1,11 
033646 001464 ONE 
033028 001 011 BYTE 1,11 
033652 001462 ZERO 
033654 002 002 BYTE 2,2 
033656 001262 $REGO 
033660 DT7: 4 
033662 001 011 BYTE 1,11 
033664 001462 ZERO 
033666 001 011 -—BYTE 1,11 
033670 001464 ONE 
033672 $93 007 erie 3,7 
033674 001274 SREGS 
033676 2 001 -—BYTE 2,1 
Osteus 001270 S$REGS 
033702 DT10: 4 
033704 001 011 evi. = 4,71 
033706 001464 ONE 
033710 001 011 BYTE Tt 
033712 001462 ZERO 
033714 9 007 Rg Bee Fe 
033716 001274 $REGS 
033720 002 001 BYTE 2,1 
Oa eySc 001270 S$REGS 
033724 2 DT11: 2 
033726 ok 007 were 2 3,f 
033 032 FLAG 
033732 002 002 .BYT 2,2 
033734 001270 SREG 
033736 2 D112 2 
033740 006 004 BYTE 6,4 


ae eS we 
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08-JUL-80 08:24 UBROUT INES 
033742 031230 cae 
033744 006 002 -BYTE 6,2 
033746 001302 $TMP2 
033750 CORMAX : 
000001 ~END 


SEQ 0120 


| 
| 
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CZ2KCF P11 08-JUL-80 08:24 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0121 

952 993 

952 995 

952 996 | 
952 967 | 
952 997 

952 998 | 
952 1007 

952 1008 | 
952 1009 

952 1010 

952 1011 

952 1012 

952 999 

952 1000 

952 1001 

952 1002 

952 1003 

952 1004 

952 1005 

952 1006 

952 958 

952 994 
2060* 2075* 20844 
22294 5654 5737 

la 952 963 

952 

95 955 

952 980 

952 984 

952 987 

952 

952 974 

952 982 

952 985 

952 988 

952 960 

952 961 

952 954 

952 975 

952 983 

952 986 

952 989 

952 957 

952 

1785 18904 

1778 1846 18884 2290 
18874 

1780 1848 18894 

1453 28894 

952 965 

952 956 

1490 1511 15504 

952 959 

14894 

952 966 
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CZ2KCF.P11 08-JUL-80 08:24 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0122 
AVECT1= 000000 328 991 
AVECT2= 000000 95 992 
BASE ARE 2900 2911 2925* 2935¢ 
BCCLD 031232 4345 4374 422 445) 4499 4528 4576 4605 59614 
BINWRD 006412 2132 2135 2136 21734 
BITCON 032010 5896* 6097 6099" 6100 6102* 6120* 6122* 6123 6125* 61504 
BITO = 000001 8154 2397 398 
BiTOO = 000001 8054 815 
BITO01 = 000002 8048 814 
ort = 000004 8034 813 
BiTOS = 000010 8024 812 
BIT04 = 000020 8014 811 
BITOS = 000040 8004 810 
Bit = 000100 ? 809 
B1TO0? = 000200 7984 808 
BITO8 = 000400 7978 0 
BiTO9 = 001000 ? 806 
BIT! = 000002 81448 1458 2391 2397 2398 2770 
BIT10 = 002000 795# = 2751 
BI1T11 = 004000 7948 81721 3343 3377 3422 3481 3534 3587 3640 3694 3754 3784 3814 
3844 3876 3926 3965 4004 4043 4085 4170 4287 4339 4416 4493 4570 
4645 4713 4786 4885 4951 5200 5473 5538 5586 5676 
BIT12 = 010000 7938 ©2682 2768 
BiT13 = 020000 7928 =§=62685 2697 2754 2772 3037 4216 4230 4253 4283 4310 
BIT14 = 040000 7914 #81703 2696 2721 2772 2783 4218 4285 5578 5674 
BIT15 = 100000 1398 
BIT2 = 000004 134 1458 1599 2398 2707 2717 4234 4256 4306 
BITS = 000010 8128 774 2781 255 
BITS = 000020 sgan” 381 24 2406 3458 3885 3935 3974 4013 4052 5539 5762 5804 
BITS = 8104 2886 3040 3512 3565 3618 3671 4129 5490 
BIT6 = 000100 8098 2387 2776 3793 3853 
BIT? = 000200 8084 2387 2506 3430 3890 4232 4237 4258 4308 4312 6080 
BITS = 000400 807% 2763 2765 2778 2780 2786 2789 2846 
BIT9 = 001000 8064 2760 2786 2789 2844 2846 
lal 010631 24298 2732 
BPTVEC= 000014 8228 
VL 013650 2841 2851 2859 28728 
BRw 004 360 1604 17384 
CALBCC 0312350 4364 4395 4441 4470 4518 4547 4595 4624 4682 4750 4811 4832 4980 
5001 5031 5052 ai¢e 5171 52350 5251 5300 5321 5397 5451 5592 5648 
5688 5734 5936* 5937 5939* 5945 5946* 5947* 5950 59554 6168 
030444 7 3927 966 005 4044 4171 58128 
030556 58394 
006410 21350" 2133 2137 2153* 21718 2172 
011340 1429 1744 2236 24548 
011414 tee 2478 
Orieks soe 
0114 2471 
011436 ore # 2480 2487 
011542 45 2457 2461 24968 
00145 10274 
03157 4340 4369 4417 4446 4G 4523 4571 4600 60768 
002502 106) 275 1307 1399 1401-2534 
104417 1520 1629 1631 1635 1635 2284 2271 2273 2348 2469 
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CZ2KCF P11 08-JUL-80 08:24 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0123 
CONERR 011107 1518 goes | 
CONN 010671 24298 687 | 
CONTAB 003530 1527 1535¢ | 
CONVRT= 104416 1470 1526 22274 2287 2630 | 
CORMAX 033750 61684 ) 
CR = 000015 7304 1824 1834 
CRC.CC= 102010 59584 
CRC16 = 120001 4342 4371 4419 4448 4496 4525 4573 4602 4650 4718 4805 4974 5025 

5224 5294 5583 5679 5957# 
CREAM 001502 1040# 1396* 2530* 2531 2533* 2537 
CRLF = 000200 7318 1795 1834 
CSR 010363 24298 2634 
CSRMAP 012240 26104 
CTSDLY 031762 6136# 
CYCLE 011606 1605 1666 25214 
DATABP 006764 2260* 2263 22 22884 
DATACL= 104415 22248 3384 3429 3433 3494 3495 3509 5547 3548 3562 3600 3601 3615 

3653 3654 3668 3712 3715 3758 3788 3818 3848 3879 3929 3968 4007 

4046 4087 4 4133 4134 4173 4347 4348 4376 4377 4424 4425 4453 

4454 4501 4502 4530 4531 4578 4579 4607 4608 4664 6 4732 4734 

798 4812 833 4851 4858 4860 4895 4967 4981 5002 5032 5053 5071 
5078 5080 5091 5217 5231 5252 5272 5301 5322 5340 9 5 
548 5487 5493 5548 6103 6126 
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1493 15404 
1072 61684 
1684 
1075 61684 
1078 1087 1099 1108 1123 1126 1132 61684 
1081 1171 61684 
1084 61684 
1090 1102 1105 1120 61684 
61684 
922 8 =1415* 1421" 1733* 
885# 1421 
7368 8928 921 
1073 61684 
61684 
61684 
61684 
1076 61684 
1079 1100 1127 1133 6168# 
1082 1112 61684 
1085 1091 1103 1106 1121 61684 
1088 1109 61684 
1124 61684 
1068 
1068 
agaf 
1071 61684 
1095 61684 
570 1098 1119 61684 
617 1101 61684 
643 1104 61684 
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CZ7KCF.P11 08-JUL-80 08:24 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0126 
KMS 002144 12124 
002154 12174 
002164 12224 
002174 12274 
002204 12324 
002214 12378 
002 ¢* 12624 
002 12478 
002244 12524 
002254 12574 
002264 12624 
002274 12674 
002106 11934 
002116 11984 
12034 
0021 12084 
12138 
12188 
12234 
12284 
12334 
12384 
12434 
12484 
12534 
12584 
isons 
11728 1641 1642* 2561*  2562* 
11714 1641 2559% 2560* 2561 
12704 2612 2908 
1040 11894 1396 1463 1473 2531 2533 2610 2615 2829 2906 2910 
7298 §©1828 1834 
sosoe 5083 
. 
10214 1735" 1747 1749 ett & 2267 3059* 3075 3102 ##3118% 3145 3168  3204* 
seeks 4336* 4368 4413% 46465" 6490% 45228 4567% 4599« 
2056* 2067 20804 
59564 
7 5928 
10284 
2269 24298 
1628 24 
2151 161 24468 
10334 587* 
1627 24 
1654 (be 
24298 814 
1560 4 
$512 «$087 «$802 Sek Seta | OSR78 = Sabk Sees Seas ht Sak aiste ee 
596 (793 3395 2959 4961 5211 5478 tt 5544 5595 5599 5603 
+ 60574 
10414 1397* 1636 2529 25342 2538 
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MLOCK 007716 1601 24298 
MINE W 010017 1555 24298 
MODU 010461 ange 2671 
MPASSX 007761 46 2 24294 
MPF AIL res 2347 2364 24294 
Mah 00764 1608 24298 2586 
MRESET= 004000 8454 
MSTCLR= 104410 22214 2353 3004 3030 396! 3104 3147 3206 3258 3282 3306 3342 3376 
3421 3480 3533 3586 3639 3693 3753 3783 3813 3843 3874 924 3963 
4002 4041 4080 4123 4169 4215 4282 4338 4415 4492 4569 4644 4712 
4782 4884 4947 5196 5472 5536 5577 5673 
MTITLE 001000 891" 1428 
MTSTN 010003 2270 24298 2571 
MVECK 007753 1630 24298 
mv35 010762 24294 2702 
NEXT 001442 10204 2089 230 2951* 2977* 3002* 3028*  3058*  3101* 3144" 3203* 3256+  43280« 
3304* 3340* 3374% 3419% 3478* 3531% 3584% 3637*% 3691* 3751%  3781% 3811%  3841« 
3872* 3922 3961* 4000* 4039% 4078+ 4121% 4167* 4213% 4280% 4335  4412* 6489« 
4566* 4642 4710* 4780* 4882* 4945% 5194% 5470*% 5534% 5575%  5671*« 
NITCH 030256 5749* 5750% 5751* 5752* #5$754#% 
NOACT 010731 144 24294 2523 
Vv 3240 1491 
NUM 010323 24294 2622 
OCOR 030260 3383 3428 3491 3544 3597 36 3711 4663 4731 4796 4894 4965 5215 
5481 5486 5547 5607 5695 5757# 5763 5793 5835 5851 5892 5985 6071 
OK 003220 1505 15084 1531 
001 10324 6168 
OUTRDY 030412 rene 3487 3535 3540 358 3641 3646 3698 3702 3707 3730 4791 
4956 5205 5477 554 5777 5786 5797# 5822 5831 5844 5848 5868 
587 5972 5981 6018 6034 6065 
PACTOO 002302 12764 
PACTO1 23 12794 
PACTO2 002312 12824 
PACTO3 002316 12854 
PACTO4 002322 12884 
PACTOS 002 12914 
C106 002332 12944 
PACTO7? 002336 12974 
PACT10 2 13004 
PACT11 346 13034 
PACT12 002352 13064 
PACT1 pas the 13094 
PACT14 002 13124 
PACT15 002366 13154 
PACT16 002372 13184 
376 13214 
8454 
537 8454 
Le 2348 23704 
1 2 7354 
240 8294 
01 8408 2303 
6 8384 
022626 8424 
010422 24298 2650 
0141 2896* 2902 2915 29364 
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C2KCF P11 08-JUL-80 08:24 ROSS REFERENCE TABLE -=- USER SYMBOLS SEQ 0128 
PRO = 000000 er 2872 2873 
PR1 = 000040 75 
PR2 = 000100 7544 
PR3 = 000140 7554 
PRG = 000200 7564 2874 
PRS = 000240 7574 #§=2875 
PR6 = 000500 7584 2876 
PR7 = 000340 7594 6 866 868 870 2877 
PS = 177776 7328 733 1389* 1598* 2841* 2851* 
PSWsso=:~«177776 7334 
PUSHRO= 010046 8394 2300 
PUSH1S= 005746 8374 
PUSH2S= 024646 8414 
PWRVEC= 000024 8248 2326* 2327 2336* 2342 2361% 2362 
QV.FLG 001511 10484 1395" 1645 
RDCHR = 104402 1942 22154 
RDLIN = 104403 2015 22168 
DOCT = 104404 2064 22178 
RESREG 006766 2286 22894 
RESVEC= 00001 8194 
RESOS = 104407 22208 2289 
ROMCLK= 104412 22238 2376 2379 2416 2421 2955 2980 3006 3032 3064 3 3077 3079 
3107 3109 3120 3122 3153 3155 3174 3176 3211 3213 3229 3231 3259 
3283 3309 3318 3345 3347 3351 3379 3381 3386 3396 3424 3426 3431 
3435 3445 3455 3484 3489 3510 3537 3542 3563 3590 3595 6 3 
3648 3669 3700 3704 3709 3732 3759 3789 3819 3849 3 3891 3 
3931 3940 3970 3979 4009 4018 4048 4057 4090 4130 4136 4175 4183 
4191 $686 $582 424 4248 89 ‘cr 4301 4653 4657 4691 4721 
4725 47 4759 4897 4910 4915 24 5095 5109 5114 5123 5152 
5157 5166 5364 5378 5383 392 5404 5418 5432 5437 5446 5488 5495 
5505 5513 5540 5549 5613 5629 5634 5643 5700 5715 5720 5729 5747 
5760 5775 5779 578 5788 5791 5802 5820 5824 5827 5833 5846 5849 
5866 5870 5873 58 5899 5 5918 5970 5974 5977 5983 5993 3 
6016 6020 6023 $232 6050 6052 6067 6081 6083 
001500 10384 1398 2527 528*« 2535 
SAVACT 001474 10364 1558 7H 904* 
SAVNUM 001476 1037# 1392* 1643* 1646 2805* 2898 
SAVPC 001460 10308 1519 1534 2096* 2315 
VSP 001456 10294 
SAVOS = 104406 22194 2248 
SCHAR 031062 4081* 4124+ 5860 5878 5883 5887* 5888 5894* 59044 
SCOP1 = 104405 22184 3074 3087 3117 3130 3164 3185 3220 3238 4367 4396 4444 4473 
4521 4550 4598 4627 
SILOLD 030622 4086 4102 4132 4148 58558 
SIMBCC 031122 4350 4379 4427 4456 4504 4533 4581 4610 4667 4735 4807 4976 5027 
3468 5296 5588 5684 59289 
SOF TSW £11600 2470 25094 
pare 5210 60304 
SPACNT= 11 2131* 2155 2158* 217284 
STACK = ee eee 7234 1390 1577 2310 
TAT 001450 10264 
STAT1 002050 we 2542 $925 4216 4218 4230 4253 4283 4285 4310 5578 5674 
STAT 002052 116 25438 $6¢ 3286 
STAT 002054 11648 2544% 4234 4256 4306 
STFFCK Be iere sie 
STFFCL 031612 884 60884 
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CZKCF P11 08-JUL-80 08:24 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0129 
STKLMT= 177774 7348 
STRTSW 001446 10c3 Jase" 1433* 1434 1436 1450* 1456 1458 1553 1599 1606 2564 2587+ 
STUFDT 032036 61594 
STUFLG 031064 4082* 4125* 5881 5895* 59054 
$v05 006100 21004 
SWFLG 011544 1393* 2665* 2492"  2498# 
SWR 001240 9218 1414* 1416 1420* 1430 1558 1563 1703 1721 1745 2237 2242 2298 
2305 307 = 2334 2554* 2394 2454 8 2491* 
SWREG 000176 8848 1409* 1420 2454 2511 
swO = 1 7878 
SwOO = 000001 777# = 787 1434 1450 8=2617 = 2825 
SwO1 = 000002 77640? 1606 2564 2587 
swO2 = 7758 = 785 
SWwO3S = 000010 7748 = 74 1553 
SwO4 = 000020 7734 = 783 
SwOS = 000040 7724 = 782 
SWO6 = 000100 771# = 781 2394 
swO7? = 000200 770# = =780 
SwO8 = 000400 7694 779 2305 
SwO9 = 001000 7684 8 8=6778—~— 1745 
Swi == 000002 7 
SWw10 = 002000 767# 2307 
SW11 = 004000 7664 
SWi2 = 010000 7654 2237 
Sw15 = 020000 7648 2242 
Rae 
ee 
SWS == 000010 7844 
SW4 = = 000020 7834 
SWS = = 000040 7824 
SW6 == 000100 7818 
SW7 = = 000200 7804 
SWB == 000400 7798 
Ssw9 = =: 001000 7784 
SYNC 030276 3756 =—s:« 3786s 3816 = 3846 srere 
SYNLD 031574 4651 4719 4790 4888 4955 5204 5476 5542 5581 3582 5677 5678 60108 
TBITVE= 000014 ty 
TEMP = =©011234 21 ug 2407* 2613* $oca" 246448 8 3307* 3313" 3316" 3322 
TIMER = 104414 22254 3349 3880 3950 969 4008 4047 42246 4267 8 4291 
TKVEC = tye 8278 
TLAST = 3 2590 57384 
TPVEC = 8284 
TRAPVE= 000034 8264 
TRIVEC= 000014 8214 
$T1 014140 1697 577 2595 29498 
TSTIO §=—.015 136 3144 2014 
TST11 «=. 015312 ad 2544 
TST12 015354 3256 36,5 
TST1S) «=. 015416 3280 ; Fd 
TST14 §=©075516 3 33 
TST15 §=©—6.015616 3340 44 & 
TST16 «= 015754 3374 17# 
TST17 = 016152 3419 = 5347 
TST2 014214 2951 29754 


earner ee ee 





N 10 
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CZKCF.P11  08=JUL-80 08:24 CROSS REFERENCE TABLE -= USER SYMBOLS SEQ 0130 
TSi20 016334 3478 35294 
1$121 016516 3531 35828 
18122 016700 3584 36350 
1$128 017062 3637 36894 
18124 017870 3691 37498 
1$125 017356 3751 37794 
1$126 017446 3781 38098 
1$12? 017534 3811 38398 
TST3 014262 2977 30008 
S130 017624 3841 38708 
1$131 017776 3872 39208 
T$132 020112 3922 39598 
1S133 020230 3961 399 | 
TST34 020346 000 40374 
TST35 020464 4039 | 
020614 4078 41198 
1S137 020754 4121 41658 
TST 014334 2 
TST40 021114 4167 421A 
TST41 021342 4213 
TST42 021536 280 43334 
TST43 022052 4335 44108 | 
TST44 022366 412 © 44870 | 
TS145 022702 4489 45648 
023216 4566 464 | 
TS147 023454 4642 47080 
TSTS 014426 3028 30568 
18150 028712 4710 47784 
TS151 024244 4780 
TST52 024446 4882 
TS153 025546 4945 51920 
TST54 026746 5194 
TS155 027200 5470 55320 
027316 5534 
1S157 027706 5575 5738 
TST6 014566 3058 30998 
TST60 = teeeee Y 5671 
TSI? 014726 3101-31420 
TTST 00414 1602 1604" 16998 
TWOSYN= 01 8450 
TYPDAT 0067 2264 2282 22850 
TYPE = 104401 1428 144014621517 15221528 1555 1560 1601 1608-1627 16281630 
1632 1634 «1798 «= 1949 «19551960 = :1964 9 1970 1972 1975 1979 2044 
2046 2062 2069 «= 2070s 2121S 2161 «22 12e «2265 «= 2266 = 2269) 2270) 2272 227% 
2278 ©2283. 2347 «= 2363 2h6B = 2471 «2528 «2569 «= 2586 = 2592 2629 649863 
2670 2679 2686 2693 2701 «= 2713 B14 
TYPMSG 006654 2262 22650 
C 010401 2429" 2642 
CMAP 013400 2813 28254 
VECTR 014132 2895« 2901* 2920 2926 29348 
T 005770 2055* 20630 
He 54 2058 2072 2082s 
WHICH 013372 2631 28214 
WRDCNT 006406 2129" 2162e 21708 
URKO.F 006742 2277 ©2280" 
KBX 006542 2238 © 2240 «22428 
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S00W5 001414 10024 
$D0W6 001416 10034 
$DDW7 So teSs 10044 
$00W8 001422 10054 
SO0W9 001424 10064 
SDEVCT 001326 9584 
SDEV 001374 9944 2903 
$DOA 004100 1644 1653 1658 16644 
SENDAD 004070 877 1426 16604 2296 
SENDCT 004054 16554 
SENV 001336 9634 1407 1443 1445 1778 1846 1870 2290 2456 
SENVM 001337 9644 1448 1780 1785 1848 
OP 003662 6234 5671 
SEOPCT 004046 16524 1656 
SERFLG 001203 9044 1394" 1626* 1688 1717 1719* 1740 2247 2261 2275* 2349 
xX 061215 9104 1740 
ROR 006512 867 223684 
001216 9114 1403 1647* 1696* 2244 2246 2350 
001512 10654 2257 
001212 908" 1638 1678 2304*  2546% 
001336 9624 
001442 10154 1156 
001320 9554 1874 
005142 1837*  1840* 1868 1877* 1885# 
001256 9298 1803 1834 
001255 9284 1834 
001220 9124 
001224 9148 
004060 16574 
eeeeee | 2214 
697 
11514 
005722 2037* 20484 
001204 9054 1725* 1726 1728* 1739 
007316 2326 2342 23664 
005724 20534 2226 
001235 9194 
001214 909# 2252* 2292 
001314 9478 1834 1979 1989 2049 
005141 1878* 18844 
206 1405* 1605* 1609 17322 861734 1739 2309" 2311 2585* 2595" 2597 
001210 9074 
001350 9804 
001354 9844 
001360 9878 
001364 9904 
001316 9534 1152 1156 1731 1778 
001346 9748 2899 
001352 9824 
001356 9854 
Oats 9884" 
0020 1152a 
005 1838* 1844 1879* 18834 
00 19934 2671 
00 9608 1854* 1857 
00 9614 1859« 
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CZ2KCF F111 08-JUL-80 08:24 CROSS REFERENCE TABLE == USER SYMBOLS 
SMSGTY 001316 9544 1852 1860* 1872 1876+ 
SWR 005541 19914 2468 
SMTYP1 001347 9754 
SMTYP2 001353 9834 
SMTYPS 001557 9864 
SMTYP4 001363 9894" 
SMXCNT 004362 1729 17394 
$N = 000057 14 2938 2944 2946 29534 2964 2970 2972 
30054 3015 3021 3023 3030 30318 3045 3051 
3096 3104 3105¢@ 3131 3137 3139 3147 31484 
3243 3249 3251 3258 32594 3267 43 3275 
3306 33074 3326 3333 3335 3342 33434 3360 
3412 3414 3421 34224 3463 3471 3473 3480 
35344 3569 3577 3579 3586 3587# 3622 3630 
3686 3693 36944 3738 3744 3746 3753 37548 
3798 3804 3806 3813 38148 3828 3834 3836 
3874 3875#@ 3909 3915 3917 3924 ar 3948 
3993 3995 4002 40034 aust 4032 4034 4041 
40814 4106 4114 4116 4123 41248 4152 4160 
4208 4215 42168 4267 4273 4275 4282 42834 
4398 4405 4407 4415 44168 4475 4482 4484 
4569 45708 4629 4635 4637 4644 46458 464697 
4773 775 4782 47834 4868 4875 4877 4884 
9484 5175 5187 5189 5196 5197#@ 5455 5463 
ooee 5536 5537@ 5558 5568 5570 5577 55784 
SNUTST= 000000 3che 2074 29908 3025" 3055" «3098 «31418-32008 
ties Sa7se S908 «Shela Seen | Sones | Shcbe | SpeRe 
3997# 40368 40758 41188 41648 42108 #62778 4332¢ 
4777# 48798 69428 51918 54678 $5318 $5728 ‘56684 
1701 1704 1715 1727 17334 
Bo 1625* 1637 1649*  1650* 1667 1675 1723 
865 1391 23264 2361 
23648 
2336 23428 
9454 1834 1972 1989 2046 2049 2069 2592 
19094 2215 
218 
1937# 2216 
0104 2217 
9304 
9314 
9334  2105* 2110 6168 
9348 1525* 1537 2104* 2111 
9354 2103* suas 6168 
9368 2102* 211 6168 
937# 2101* 2114 6168 
9384 2100" 2115 6168 
16664 
2218 
tj 7) 29534 2977 002 30054 6 
3144 1484 203 32074 256 Th ¢ s 
3377#@ §=63419 228 {32 481 31 4h 84 
3751 37544 781 7844 Bi4e 841 8448 
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4003# 4039 
4335 43394 
47834 4882 

671 56748 
2344* 2345+ 
2869 
1898 1995 


Wi & Ui 
Us 
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$3 


40424 
4412 
48854 


23684 
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40814 
4489 
49488 


41704 
4642 


54738 


SEQ 0154 


42168 
4710 
5537# 


PO ee nS ~ a Set atest Gneemeeae: 
ET eT ES TE EE ee ee | 


Lee ee 
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STYPBN= teenee 2213 

STYPDS= seneee 2213 

STYPE 004414 17724 1865 2204 2212 

STYPEC 004626 1802 1809 1816 18214 1822 

STYPEX 004674 1827 1829 18324 

STYPOC= seeeee 2213 

SUNIT 001330 959" 

SUNITM 002044 11554 

SUSWR 001342 9664 

SVECT1 001366 9914 2901 2902 

$VECT2 001370 9924 

SXTSTR 004174 1698 170 

$Y = 000000 14 11578 

$$GET4= 000000 16594 

S4OCAT= seeeee 1703 

, = 033750 8574 859 8624 875 8764 8784 8804 8824 8864 8904" 9004 948 10344 
10354 10364 10374 10464 11344 1140 11414 11434 11454 11884 11904 1191# 11924 
11934 11954 1196 11974 1198 1200 #1201 1202 #12034 +1205 ##1206# #+#%+(12078 12088 
1210 12114 #1212 ##%12134 #+%1215@ #%$+12164 «#%+12174 1218 1220 12218 12224 2238 12258 
12264 12274 12284 12308 +%+(12318 12328 Seas 12354 12364 12378 12384 #+%%124608 #12414 
12424 12434 12658 12664 12478 12484 ##%%1250 12518 12528 12538 12558 1256# 12578 
12584 1260 12614 1262 1263 1265 #12664 #+%%12674 12684 1432 1442 15494 562 
1667 1739 1740 1834 18864 1896 19884 1989 19954 2049 2338 7 24108 
24298 eee 24478 2501 2504 2525 2618 2659 2767 2771 2817 2848 2881 

4217 4231 4254 4284 4311 4862 5082 5351 616884 

-ADVAN 006060 20894 2229 

-BEGIN 003464 15778 

-CNVRT 006170 1224 $368 

-CONVR 006164 12148 222 

-DATAC 007446 2224 24014 

-DELAY 007332 2222 23748 

-MSTCL 007362 2221 23854 

-RESOS 006132 21104 2220 

-ROMCL 007400 2223 23908 

-SAVOS 006072 2219 

-SCOP1 004364 17448 2218 

~START 002402 887 13894 1405 2488 

-TIMER 007512 2225 24124 

-SASTA= eteeee 1838 1841 

-$X = 002034 11404 1145 


qneesQee eee <=. 


LT SSeS SS sss phenesesenesermeemesnete eee re en ee EEE 
- ne ne es emer tee es 


— _ 
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OMMEN 
ENDCOM 83504 


ERROR 7248 962 987 3033 3083 073 086 16 3468 163 3184 3219 3237 3265 3289 
2515 324 358 393 403 442 45 461 500 504 3514 3553 3557 3567 606 
10 3620 659 3663 3673 720 724 3766 oh. nes 3856 3888 3900 3907 3938 
3946 3977 3985 4016 reg 4055 4063 eet 414 4181 4189 4197 4243 4265 4317 
4357 4361 4386 4390 4434 4438 4463 ong 4511 4515 4540 4544 4588 4592 4617 
4621 4674 4678 4742 4746 4817 4821 4838 4842 4854 oe83 4903 4922 4986 ‘s 
007 5011 5037 5041 5058 5062 5074 5083 ae 5121 5130 5144 5164 5173 5236 
5240 5257 5261 5277 5281 5306 5310 5327 5331 5343 5352 5370 5390 399 5410 
aoSe pepe: 5453 5492 5501 5511 5519 5556 5619 5641 5650 5706 5727 5736 5808 
ESCAPE 830" 
GETPRI 8304 
WR 8308 
HLT 8434 
KMEND 1# §1610 
KMFRNT i 687 
MULT 8308 
NEWTST 8308 94 2974 9 3025 3055 3098 3200 3253 3277 3301 3337 3371 3416 
3475 3528 3581 3634 3688 3748 3778 3808 3838 3869 3919 3958 3997 4036 4075 
seus $593 rH 4277 4332 4409 64 4639 4707 4777 4879 4942 5191 5467 
8308 1880 1881 2038 2354 2355 2928 
PUSH 8508 1841 1843 2012 2328 2354 2891 
REPORT 1a 8304 
SCOPE 725@ 2949 2975 3026 3056 099 3142 3201 3254 3278 302 3338 3372 3417 
347 3529 3582 i352 3749 3779 3 3839 3870 3920 3959 3998 4037 4076 
411 4165 4211 4278 4533 4410 4487 4564 4640 4708 4778 4880 4943 5192 468 
owen 5532 5573 5669 


SETTRA Soy 2215 2216 2217 2218 2219 2220 2221 2222 2223 2224 2225 2226 2227 2228 


873 948 951 1139 1146 1618 1685 1757 1836 189 90 1930 
2183 2324 2340 2948 974 5 3055 3098 3141 3200 3253 3277 3 
3371 3416 3475 3528 581 34 3748 3778 8 3838 3919 3958 
4036 4075 4118 4164 1 4277 4332 4409 4486 4565 4639 4707 4777 8 
5191 5467 5531 5572 
1474 
4321 4398 4475 4552 
4629 4697 





eae. 





CZKCF MACY11 36A(1052) 
CZ2KCF P11 08-JUL-80 
SBUFFE 14 re} 
SCDATA 6878 558 
$SCLOCK 6874 3291 
SCOMP 1 6878 
4193 4917 
SCRC 6874 4340 
SCRCSH 6874 6645 
SCYCLE 1# 2512 
SEMPTY 687# 5455 
14 #1610 
14 1067 
1¢ 865738 
687% 
oere 3149 
6878 5521 
4 697 
687# 3738 
6874 
6878 3131 
6874 2938 
687# 3045 
a 3088 
687# 4152 
ore 906 
687# 4199 
1# 2429 
6874 
1% 1624 
6874 4065 
# 2319 
687# 5989 
14# 2621 
1# 2373 
1# 2376 
3120 3122 
3347 3351 
3537 3542 
3819 3849 
4136 4175 
4721 4725 
5166 5364 
5549 5613 
5791 5802 
4 5974 
608 
SRCRC 6878# & 
C 687# 3858 
AR 1# #861017 
SCADD 4 ste 
$SCAD1 #4 173 
$S IMBC 1 5928 
SSINAC 6874 
$SOF TC 1# 2649 
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3208 


3798 


2989 


5147 


z 


Www & & nssseii) 
SSA BAGSE 


wad 
© 
= 
co 


3225 


3828 


3015 


5373 
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5427 


5624 


3972 
5722 
4571 


5710 


MACRO NAMES 


3981 
4600 


4011 


Orv & Se 
Bex bosesnue 
RSLeSEssuee 


4020 


4050 


4059 


4177 


SEQ 0157 


4185 


ae, - - 


SE Se 


| 111 
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CZKCF P11 08-JUL-80 08:24 CROSS RF FERENCE TABLE == MACRO NAMES 

SSTUFF 6874 

SSWPAC © 687# = 3243-3267 

STCHAR 6878 4786 4885 4951 5200 

SICRC = §87# 4765 49275175 

STRANW © 687# = 4805 = 4974 = 5025. 5224 3-524 

$TRAN] 6878 3326 3360 3405 

STSTN 1# 3946 2972 2997 302330533096 51393198 3251 
3473 3526 «= 3579S 3632S 3686) 3746S 3776 = 3806 «= 3836 = 3867 
4116 4162, 4208 )3=— 4275) 4330) 4407S BA 4561) 4637 4705 
5529 5570 5666 

SUPADD 14 2347 

SVARIA @ 889 

Sul 687# 3463 3516 «= 3569 = 36 22 

$x2 1#@ 2938 2944 2964 2970 2989 2995 3015 3021 3045 
3190 3196 )=— 3243 = 3249 «= 3267S 3273S 3291S 3297 «= 3326 = 3333 
3471 3516 «= 3524 «= 3569. «= 3577S «3622 Ss 36300 3675. «368403738 
3828 4«=— 3834 «= 3858 «= «3865 «= 3909'S 3915S 3948 «3=—s 3954 «= 3987 «= «3993 
4114 4152, 4160 4199) 4206 «3S 4267) = 4273) 4321 4328) 4398 
4629 4635 4697 4703 4765 4773 4868 4875 4927 4938 
5527, 5558 5568 5655 5664 

SZEROS 687 

SSCMRE 8948 933 934 935 936 937 938 

SSCMIM 8948 939'i—i0s—(asi (as C2s«O 

SSESCA 8308 

S$NEWT 8308 8 2976 2999 3025 3055 3098 3141 3200 3253 
3475 3528 3581 3636 3688 3748 3778 3808 3838 3869 
4118 «4164 = 4210) 4277, 4332 4409S 4486) 4563) = 639 )=— 4,707 
5531 5572 5668 

$$SCOP 1# 1679 

BSSET 22048 «22152216 221722182219 2220 222122222228 

S$SKIP 8308 

-EQUAT 1# = 720 

“HE ADE 1¢ = 687 

“SETUP lt 

“$ACTI 1# = 871 

“SAPTB 1# = 9498 

“SAPTH #1135 

“SAPTY 1# = 1834 

“SCATC We 

“SCMTA 1# = 894 

“$EOP 1# 1616 

“SERRO ie 

“SERRT is 

1@ 2322 

1# 1996 

1# = 1893 

“$SCOP 18 1683 

“STRAP 1#@ 2181 

“$TYPE 1# = 1755 

“STYPO is 

. ABS. 033750 000 


SEQ 0138 


sss sessnssssesessteseeenisneee 
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ERRORS DETECTED: 0 
CZKCF ,CZKCF/NL: TOC/SOL/CRF_CZKCF ..MAC,CZKCF.P11 
RUN-TIME: 29 25 1 aes 


RUN-TIME RATIO: 73/56=1.2 
CORE USED: 53K (105 PAGES) 


SEQ 0139 


on sa eee — 


